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-REM % 


IDENTIFICATION 


PRODUCT CODE: AC=1T449A-MC 
PRODUCT NAME: CNDRAAO DRV11B DMA INTFC DIAG 


DATE: DEC 1982 
MAINTAINER: DIAGNOSTIC SERVICES/ISS 
AUTHOR: T.CHAPSKY 


(C) 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPU Ss COPI 


ANY E 
E ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE 
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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VIA_THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5 
OF THIS DOCUMENT. IF THE SYSTEM ALSO INCLUDES AN ‘'REV11"* (DMA REFRESH), 
THE DMA REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 


REQUIREMENTS 


EQUIPMENT 


1. LSI-11 FAMILY PROCES 

11/03¢LSI=11702), “Tis2sceortt-a), 11/238 (KDF 11-8) 
2. DLV11 WITH I/O TYPE TERMINA 
3. ORV11B WITH LOOP BACK CABLE. 


STORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 


IF USING PAPER TAPE READER FOLLOW THIS PROCEDURE: 
1. ASSURE THAT THE LSI-11 IS IN THE ODT MICROCODE STATE. 
2. a4 THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER 


TAPE. 

3. ie ual tienen $ CSR ADDRESS (177560-LOW OR 177550-HIGH) 

4. AFTER TAPE IS LOADED, ~~ THE pyre BINARY TAPE INTO THE 
READER AND TYPE THE CHARACTER 

5. IF THE ABSOLUTE LOADER _ ALREADY A a. LOADED (STEPS 2 & 3), 
THEN ONLY THE STARTING ADDRESS OF THE ABSOLUTE LOADER AND 
THE CHARACTER ‘G* NEED ae TYPED (WITH THE DRV11B BINARY TAPE 
IN THE APPROPRIATE READER). 


STARTING PROCEDURE 


7 PAPER TAPE MEDIA 
MAKE SURE THE RAINTENANCE LOOP BACK CABLE IS INSERTED IN 
THE 1/0 CONNECTORS ON THE M7950 MOD 
2. MAKE SURE THE Device BUS & yes roe ADDRESSES AGREE WITH THE 
DEFAULT VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE 
LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/* ODT ¢ 
- INSURE THAT THE HAL of LS DISABLED (IF ANY). 


HE USER CHANGE ITS 
H REGISTER DATA TERMINATED 
ON 5.0 FOR SWITCH REGISTER 


SEQ 0004 
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— P11 14=DEC-82 11:43 SEQ 0005 
| $837 OPTIONS. 
5838 6. THE NEXT QUESTION ASKED IS ABOUT THE TYPE OF A PROCESSOR. 
5839 TYPE *Y° WITH CARRIGE RETURN IF USING KDF11-B, ‘N* OTHER= 
aac WISE. 
5842 Hy —- UNDER * Bey bing 
5843 SO Ven See Be @ E ABOVE. 
| $844 8) IN why nape TYPE IN ‘'R NDRAA?‘. 
5845 C) DO 5. AND 6. 
5846 
5847 weet 
5848 IF USING LSI=-11/23B(KDF11-8) AND WANT TO TEST DMA TRANSFERS TO 
5849 1/0 PAGE PUT THE ADDRESS OF YOUR I/O INTERFACE CONTROL RE- 
5850 GISTER INTO LOCATION 1544 (IOPAGE). TO a> eg PERMANENTLY USE 
5851 LOAD-MOD=-DUMP PROCEDURE DEFINED IN 7.2. F TEMPORARY CHANGES 
5852 JUST MODIFY LOCATIONS AFTER LOADING THE PROGR AM. 
5853 NOTE: THIS TEST IS NOT GOING TO BE PERFOMED UNLESS THE ABOVE 


5854 MENTIONED LOCATIONS ARE MODIFIED. 


ee ieee eS 


v—v—————— Se _~——_—_-- - a —————— 
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| 5856 5.0 SOFTWARE SWITCH REGISTER 
5858 
5859 5.1 OPTIONS 
5860 
286! SWITCH OCTAL FUNCTION 
5863 SW15=1 100000 HALT ON ERROR 
$W14=1 040000 LOOP ON TEST ‘ 
5865 SW13=1 020000 INHIBIT ERROR TYPEOUTS 
SW11=1 004000 sty — s 
5867 Sw10=1 002000 BELL ON ERR - 
SwO9=1 001000 oo ON ERROR 
5869 Sw08=1 0004 xx LOOP ON Mg IN SWR <5-0> 
5870 #eeSW07=1 000200 DEVICE IS KDF11-8 
5871 wate wy th WILL SET THIS SWITCH AUTOMATICALLY, IF THIS TYPE 
5872 OF A PROCESSOR HAS BEEN CONFIRMED IN A DIALOGUE. IF RUNNING IN 
rth AUTOMATIC MODE (CHAINS UNDER XXDP OR APT) SEE SECTION 7.2 


5878 CHANGED BY USING THE oer FACILITIES. 

5879 2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
5880 CONTROL BY TYPING THE tha & S KEYS. THIS 

5881 KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
5882 AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
5883 WITH ° CARRIAGE RETURN. 

5884 3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

5885 ERROR CONDITION ade ag SET (HALT ON ERROR), STEP #2 
5886 ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
5887 SOF TWARE SUITCH REGISTER IF DESIRED BEFORE TYPING 

5888 *P* (CONTINUE). 

5889 4. IF THE PROGRAM IS aan nae Ee RESET INSTRUCTIONS, SEVERAL 
5890 "CONTROL & G' COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 
5891 BY THE PROGRAM. 


5893 6.0 ERROR REPORTING 


58 eneneweececnnne 


5896 6.1 ERROR COMMENT 


5898 ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE ae a 
5899 “ COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
5900 THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
rh'4 ERROR PC OR FROM THE TEST ITSELF. 


5703 6.2 ERROR DATA 
904 


5905 *ERRPC ee ADDRESS WHERE THE ERROR - DETECTED 
906 *TSTNUM TEST NUMBER WHERE THE ERROR OCCUR 

5907 BUSADR DRV11B BUS REG ADDRESS OF CONCERNED OPERATION 
5908 EXPCT DATA THAT WAS EXPECTED 

5909 RCVD DATA THAT WAS RECEIVED 

5910 ADRS MEMORY ADDRESS OF DATA TRANSFER ON ERROR 


<“<<— 


5875 _ 562 CONTROL 
5877 1. THE SOFTWARE SWITCH REGISTER *SWREG' (LOC. 176) CAN BE 
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(NDRAA.P11 — 14-DEC~82 1 ! 
5912 *tALW°VS REPORTED Ld 
5913 7.0 vc”) LANEOUS 
a --- -—+-«<eececece 
pat ae 7.1 DRV116 BUS & VECTOR ADDRESS MODIFICATION 
5918 MODIFY LOCATION "SBASE° IF BASE BUS ADDRESS IS NOT 174600. 
rea MODIFY LOCATION ‘SVECT1" IF VECTOR ADDRESS IS NOT 210. 
5921 *NOTE: USE THE LSI=-11 ODT FACILITIES TO MODIFY THESE LOCATIONS 
5922 AFTER PROGRAM LOAD. NO VECTOR ASSIGNMENT ABOVE 774 SHOULD BE 
5923 ALLOWED. 
5924 
2352 7.2 XXDP/AFT NOTES 
5927 THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REF. 7.5) (REQUIRES 8k OR MORE). 
aos8 THIS DIAGNOSTIC DOES SUPPORT ‘‘APT’’ AND HAS RUN UNDER IT. 
5930 IF me PROCESSOR USED IS KDF11 701 
5931 FOR APT SET SSWREG BITO7 T (000200) 
5932 FOR XXDP CHAINS SET LOCATION. 176 (SWR) BITO7 TO 1 
5933 TO DO THIS UNDER XXDP: 
5934 1. R UPD 
5935 2. LOAD NDRAA?.BIC 
5936 3. MOD 176 
5937 THE tg WILL RESPOND: 176/000000 
5938 4. NOW TYPE IN 
rhs 44 5. Pion ThE bi AT THIS POINT IT IS NECESARY TO DELETE THE FILE 
5941 DEL DLO:NDRAA?.BIC (IF MEDIA IS RL ON DRIVE 0) 
5942 6. DUMP mpoeee. 
5943 TO BE SAFE, SKIP 5. AND DUMP THE FILE UNDER DIFFERENT NAME 
5944 WITH .BIC EXTENS 
5945 NOTE: THIS PROCEDURE ASSUMES THAT DIAGNOSTIC IS ON THE DISK 
5946 FROM WHICH THE SYSTEM IS BOOTED. IF THIS IS UNT 
5947 ~ 2. AND 6. THE OPERATOR HAVE TO SPECIFY THE DRIVE BEFORE 
5948 THE NAME. e 
5949 
oge0 Fos POWER FAIL 
5952 A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
5955 WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
gore NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 
2909 7.4 MULTIPLE DRV11B INTERFACE TESTING 
5958 THIS PROGRAM DOES NOT ‘‘AUTO-SIZE** THE NUMBER OF DRV11B°S CONNECTED 
5959 THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 DRV11B INTERFACES 
5960 WITH CONTIGUOUS BUS AND VECTOR ADDRESSES. mat S COMPL ISHED 
5961 BY THE OPERATOR SETTING UP LOCATION ° ae WITH A BIT MAP INDICATING WHAT 
5962 fh parte ARE TO TESTED. I.&. BJ]TO=1 SAYS TEST 1ST DORV11B, 
oper BIT1=1 SAYS TEST 2ND DRVi1B, BIT2=1 SAYS TEST 3RD DRV11B, efc.. 
aeee 7.5 RESTRICTIONS 
5967 IF THE SYSTEM ALSO INCLUDES AN “‘REVi1"’ (DMA REFRESH), THE DMA 
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REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 
EXECUTION TIME 


eT TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 

T 90 SECONDS WITH ITERATIONS ENABLED WITH ONE DRV11B CONNECTED. 
AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
PROGRAM TEST DESCRIPTIONS 


GENERAL 

THIS aah CONTAINS A eriy OF INDEPENDENT TESTS DESIGNED 

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11B DMA eae 

A rod DEGREE OF TESTING IS ACCOMPLISHED WITH THE AID OF THE 
OOP BACK CABLE PROVIDED FOR DIAGNOSTIC ag LL 


E LISTING. THE COMMENT FIELD WITHIN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 


REGISTER TESTS 

THE FOLLOWING REGISTERS ARE READ/WRITE & RESET TESTED: 
}. WORD COUNT 

i: DATA BUFFER 

BYTE ADDRESSING TESTS 


1, COMMAND/STATUS 
2. DATA BUFFER 


*FNCT® TO "STAT* WRAP AROUND TEST 
READY INTERRUPT TEST 
NPR DATA TRANSFER TESTS 


ben | Re a NPR XFERS ARE oe FOR CORRECT STATUS, 
COUNT, BUFFER ADDRESS & DATA 


INGLE "DATI* XFER = FLOATING 1/0 PTRN 
I FER = FLOATING 1/0 PTRN 


tf 


1. 
2. 
3. 
4. 1/0 PTRN 

5. NGLE ‘DATI® XFER THE TTY gong A CS 


FOR KDF11-B PROCESSOR THE USER HAVE TO SELECT 
CSR OF A pea INTERFACE (DISK INTERFACES 
ARE suses STES? SOME OF THEM ARE: 
(RXO1): 177170 
sia (RX02): 177170 


RKV11-D (RKOS5): 177404 


SEQ 0008 


foe nn 
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Soe 9.7 MAINT MODE NPR DATA TRANSFER TESTS 
6026 1. THAT MAINT MODE CONTROLS ‘FNCT* BITS 
6027 2. 200 MAINT MODE XFERS = CHECKING STATUS & DATA 
aig 3. 200 MAINT MODE XFERS TO EACH 4K AVAILABLE MEM 
yt 9.8 BURST & NON-BURST MODE TESTS 
6032 1. THAT CPU IS LOCKED OUT IN BURST MODE 
th 2. THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE 
6035 9.9 *NEX® ERROR CONDITION TEST 
6038 CVDRAC- DIAGNOSTIC WAS “MADE SPECIFIC TO 11/21 PROCESSOR AND 
6039 IS CALLED CNDRAAO. 
148 11.0 LISTING 


6036 
6037 10.0 REMESION HISTORY 


SEQ 0009 
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_CNDRAA, P11 14=DEC=82 11:43 SEQ 0010 
' 6054 TITLE MAINDEC=11-CNDRA~A DRV11B DMA INTERFACE DIAGNOSTIC 
| 6 @) s*COPYRIGHT (C) 1982 
I~ [*DIGITAL EQUIPMENT CORP. 
| (1) ; *MAYNARD MASS. 01754 
1} ; PROGRAM, BY R. MOORE 
i; 64) ‘THIS PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC 
| (1) ; sPACKAGE (MAINDEC*11=DZQAC-C3), JAN 19, 1977. 
| ‘ ; oe 
i 000001 $TN 
' =) 160000 $suR-160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
| 6055 167400 $SWR=167400 
| 6056 000300 SSuRMK= 300 
6057 000001 N=1 
6058 a TOTTL OPERATIONAL SWITCH SETTINGS 
8 ** 
(1) 3* SWITCH USE 
(1 y Ps ** (Sa een ee et oe eRe ee Pe | OD Oe a A A Oa ee ae 
(1) ie 15 HALT ON ERROR 
(1) tt 14 LOOP ON TEST 
(1) ie 13 INHIBIT ERROR TYPEOUTS 
(1) ie 11 INHIBIT ITERATIONS 
(1) it 10 BELL ON ERROR 
(1) :* 9 LOOP ON ERR 
(1) ta g LOOP ON fest IN SWR<5:0> 
6039 ~SBTTL BASIC DEFINITIONS 
(1) z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 es 
(1) 001100 STACK= 1100 
(1) -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
(1) -EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
(1) ; MISCELLANEOUS DEFINITIONS 
(1) 000011 HT= 11 :CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 CODE FOR LINE FEED 
(1) 000015 CR= 15 33CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 S= 177776 s:PROCESSOR STATUS WORD 
(1) .EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 z:STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 + PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSwWR= 177570 ZSHARDWARE SWITCH R 
(1) 177570 DDISP= 177570 HARDWARE DISPLAY ReGiSte 
(1) poses THE FOLLOWING ODT START ADDRESS FOR SBC 14021 IS ADDED 
(1) 170000 ODTST= 17 
(1) s*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 20 ::GENERAL REGISTER 
(1) 000001 Ri= 21 *:GENERAL REGISTER 
(1) 000002 R2= % 3:GENERAL REGISTER 
(1) 0003 R3= z > GENERAL REGISTER 
(1) 000004 R4= 14 t:GENERAL REGISTE 
(1) 0005 R5= 45 7: GENERAL REGISTER 
(1) 000006 R6= 26 +:GENERAL REGISTER 
(1) 000007 R7= 47 7:GENERAL REGISTER 
(1) 00006 SP= 46 :zSTACK POINTER 
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‘CNDRAA.P11 —- 14=DEC=82 11:43 BASIC DEFINITIONS SEQ 0011 
| (1) 000007 PC= %7 :;PROGRAM COUNTER 
; ees s*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= 0 s;PRIORITY LEVEL 0 
a 000040 PR1= 0 ::PRIORITY LEVEL 1 
a 000100 PR2= 102 ::PRIORITY LEVEL é 
| a 000140 PR3= 140 ::PRIORITY LEVEL 
| (1) PR4= 200 s:PRIORITY LEVEL 4 
| (1) 000240 PR5= 240 szPRIORITY LEVEL 5 
| 4) 000300 PR6=  —«- 300 PRIORITY LEVEL 6 
| (1) 000340 PR7= 340 ::PRIORITY LEVEL 7 
/ 1) :*""SWITCH REGISTER’ SWITCH DEFINITIONS 

(1) 0000 $w15= 100000 

(1) 040000 Sw14= 

(1) 020000 Sw13= 20000 

(1) 010000 Swi2= 10000 
} @ 004000 SW11= 

(1) 002000 SWi0= 2000 

(1) 001000 Sw09= 1000 

(1) 000400 SWwO8= 400 

(1) 000200 Sw07= 0 

(1) 000100 SWwO6= 100 

(1) 000040 SWwOS= 40 

(1) 000020 SWwOS= 2 

(1) 000010 SwO3= 10 

(1) 04 SwWO2= 4 

(1) 000002 SwOl= 2 

(1) 000001 SWwOO= 7 

(1) “EQUIV $WO09,SW9 

(1) eEQUIV SwW08,SW8 

(1) “EQUIV SWO7.SW7 

(1) “EQUIV $W06,SW6 

(1) "EQUIV SWO5.SW5 

(1) “EQUIV SWO04, SWS 

(1) “EQUIV SWO3.SW3 

(1) eEQUIV SwW02,SW2 

(1) eEQUIV SW0O1,SW1 

wD “EQUIV SW00,SWO 

(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 

(1) 100000 BIT15= 100000 

(1) 40000 BIT14= 40000 

(1) 20000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) 004000 BIT11= 4000 

(1) 002000 BIT10= 2000 

(1) 01000 BIT09= 1000 

(1) 000400 BITO8= 400 

(1) 000200 BITO7= 200 

(1) 000100 BIT06= 100 
! 1) 000040 BITOS= 40 

(1) 000020 BITO4= 20 

(1) 000010 BITO3= 10 

(1) 000004 BITO2= 4 
| (1) 000002 BITO1= 2 
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6064 000000 


000174 
000176 


000200 
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000001 


000004 


177522 


000000 


000174 
000000 
060000 
000137 001550 


00010 
000104 000200 000002 


ASIC DEFINITIONS 


1 
-EQUIV BITO9,BIT9 
-EQUIV BITO8,B1T8 
sEQUIV BIT06,B1T6 
sEQUIV BITOS,BITS 
sEQUIV BITO4,BITS 
-EQUIV B1T03,B81T3 
-EQUIV BITO2,BI1T2 
-EQUIV BIT01,B1T1 
sEQUIV BI1T00,BITO 
z*BASIC ‘'CPU' TRAP VECTOR ADDRESSES 
ERRVEC= 4 zTIME OUT AND OTHER ERRORS 
RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 BIT 
TRIVEC= 14 <2 TRACE TRAP 
BPTVEC= 14 ::BREAKPOINT TRAP (BPT) 
1OTVEC= 20 #3 INPUT/OUTPUT TRAP (IOT) **SCOPE+* 
PWRVEC= 24 ::POWER FAIL 
EMTVEC= 30 ; ;EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 :"TRAP’’ TRAP 
TKVEC= 60 33 TTY KEVOGARD VECTOR 
TPVEC= 64 TTY PRINTER VECTOR 
peeeee THE FOLLOWING BREAK VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
LKVEC= 100 7 7LINE Lock VECTO 
BRKVEC= 140 i ZBREAK VECTOR 
PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
ABASE= 174600 :BASE DRV11B BUS ADRS EQUATE 
AVECT1= 000210 [BASE DRV11B VECTOR, ADRS EQUATE - 
ADEVM= DEFAULT TO ONE idRv 118 
MTPS=106427 : INSTR EQUATE THAT MOVES BYTE TO PSW 
TMAIN: 177522 + MAINTENCE REGISTER (FOR USE WITH KDF11-B) 


-SBTTL TRAP CATCHER 


-=0 
z*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘*.#2,HALT’’ 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
3 *LOCATION ! CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


=17 
DISPREG: “WORD 0 z;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 z:SOFTWARE SWITCH REGISTER 
*SBTTL STARTING ADDRESS(ES) 
JMP @#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 


=100 
“WORD 104,200,2 zI1F *B EVENT’ ON Q BUS IS CONNECTED 
IGNORE IT°S INTERRUPT = JUST DO A RTI 


SEQ 0012 
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CNDRAA.P11—- 14=DEC=82 11:43 CT11 HOOKS ' SEQ 0013 
6070 .SBTTL ACT11 HOOKS 
| (2) FERRARA EER EEEEEEE EERE EERE ERERAERAEEREEEAEEEREREEERAERREE 
(1) ‘HOOKS REQUIRED BY ACT11 
(1) 000106 $SVPC. sSAVE PC 
(1) 000046 .=46 
| (1) 000046 010056 SENDAD i:17)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(1) 000052 000000 “WORD 0 i52)SET LOC. 52 TO ZERO 
(1) 000106 *=$SVPC t: RESTORE P 
6071 001000 *=1000 
6072 .SBTTL APT PARAMETER BLOCK 
(2) FUERA EERE RIREREEREREEEE REE EEEEREEEEAEEEEEEEEEEEEEEEREREEEEERE 
(1) Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) {RARER EERE E EERE EEE ERERAERERARAEREREREEEEREREREREREE EEE 
(1) 001000 .$X=. =: SAVE CURRENT LOCATION 
(1) 000024 -=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200 :3FOR APT START UP 
(1) 000044 =44  ::POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 $APTHDR ::POINT TO APT HEADER BLOCK 
(1) 001000 =.$X ::RESET LOCATION COUNTER 
(2) PETTITT TT TLLITI LETTE TTT TLE EEE LLL ELLE ELLE EEE 
(1) :SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
1) S INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 000000 $HIBTS: .WORD 0 3 TWO HIGH BITS OF 18 BIT (HAILBOX ADDR. 
(1) 001002 001174 SMBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 000031 $TSTM: .WORD 25. ::RUN TIM OF LONGEST oer 
(1) 001006 000006 $PASTM: .WORD 6. 3 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
C1) 001010 000144 SUNITM: .WORD 100 SADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


| 
| 
| 
| 
| 
001012 000052 - WORD END-SMAIL/2 :;LENGTH MAILBOX-ETABLE (WORDS) 
| 
| 
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—— 
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6073 .SBTTL COMMON TAGS 

(2) FRRAAAAAAARAAARARAEEEA EEE RE EEE AEEEREREEEEEAAEAREAREAAAEREAREREER 
(1) <STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(1) S*USED IN THE PROGRAM. 
(1) 091100 .=1100 
(1) 001100 SCMTAG: s:START OF COMMON TAGS 
(1) 001100 000000 .wORD 0 
(1) 001102 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
(1) 00110 000 SERFLG: .BYTE 0 TAINS ERROR FLAG 
(1) 001104 SICNT: .WORD 0 [: CONTAINS SUBTEST ITERATION COUNT 
(1) 601106 000000 SLPADR: .WORD 0 SICONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 SLPERR: .WORD 0 3: INS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0 S:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 ITEMB: .BYTE 0 3: CONTAINS ITEM CONTROL 
(1) 001115 001 ER “BYTE 1 3: INS MAX. ERRORS PER TEST 
(1) 001116 000000 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERRGR INSTRUCTION 
(1) 001120 000000 SGDADR: .WORD 0 t: CONTAINS ADDRESS OF ‘GOOD’ DAT 
(1) 001122 009000 SBDADR: .WORD 0 : CONTAINS ADDRESS OF *BAD" DATA, 
(1) 001124 000000 SGDDAT: .WORD 0 i: CONTAL NS 'GOOD* DATA 
(1) 001126 000000 $8 ;WORD 0 S:CONTAINS "BAD® DATA 
(1) 001130 000000 “WORD 0 t:RESERVED=-NOT TO BE USED 
(1) 001132 000000 “WORD 0 
(1) 001134 000 SAUTOB: .BYTE 0 y;AUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 S: INTERRUPT MODE INDICATOR 
(1) 001136 “WwORD 0 
(1) 901140 177570 SWR “WORD DSWR : ADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP S:ADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 $TK 177560 getty KBD STATU 
(1) 001146 177562 $TKB: 177562 S3TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 “TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $T 177566 S TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 SNULL: .BYTE 0 zzTTy Pain NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 
(1) ;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .eyTe 18 ss INSERT FILL CHARS. f A “LINE FEED" 
(1) 001157 000 STPFLG: .BYTE 0 33""TERMINAL AV: vAILABLES FLAG. (Bh Teb7ocOuvES) 
(1) 001160 000000 $TI NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE i SESCAPE ON ERROR ADDRESS 
(1) 001164 177607 000377 $BELL: .ASCIZ <207><377><377> 33 CODE FOR BELL 
(1) 001170 077 $QUES: . ASCII /2/ STION BARK 
(1) 001171 015 SCRLF: <ASCII <15> i; CARRIAGE RETURN 
(1) 001172 000012 SLF:  .ASCIZ__<12> INE FEED 
(2)  ReREReeeeeeeeeeeeetetereeeeeeadeaeneaarereneearerereeneeereeee 
(2) *SBTTL APT MAILBOX-ETABLE 
(3) ciara ese abnapin es sree es cic ee 
(2) “EVE 
(2) 00117 $MAIL 3 APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD AMSGTY i SMESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL ::FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: .WORD ATESTN iteet NUMBER 
(2) 001202 000000 $PASS: .WORD APASS ::PASS COUNT 
(2) 001204 000000 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 
(2) 001206 000000 IT: .WORD AUNIT ::1/0 UNIT NUMBER 


SEQ 0014 


| 
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001210 000000 SMSGAD: .WORD AMSGAD ;; MESSAGE ADDRESS 
| (2) + 001212 000000 SHSGLG: .WORD AMSGLG :;MESSAGE LENGTH 
2) 001214 SETABLE: T ENVIRONMENT TABLE 
| 8) 01216000 SEN: BYTE AENV.  SJENVIRONMENT BYTE 
| (2) 001215 = 000s SENVM: BYTE 
6!) :;ENVIRONMENT MODE BITS 
| @) 001216 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
/ (2) 001220 000000 SUSWR: .WORD AUSWR 3;USER SWITCHES 
(2) O01222 000000 SCPUOP: WORD — ACPUOP + CPU sri epu et 
3* -|{= 
| (2) 3* 1704201 .11/05202,11/20=03,11/40=04,,11/45=05 
(2) 3* 11/70=06,PD0=07,0210 
| @) 3 BIT 10=REAL TIME CLOCK 
(2) 3* BIT 9=FLOATING POINT PROCESSOR 
(3) : BIT MORY MANAGEMENT 
(2) 001224 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001225 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE BLKAi 
(2) ;* MEM.TYPE BYTE == (HIGH BYTE) 
(2) ;* 900 NSEC CORE=001 
(2) 3* 300 NSEC BIPOLAR=002 
(2) : 500 NSEC WOS=003 
(2) 001226 000000 $MADR1: .WORD AMADR1 3 7HIGH ADDRESS. BLKA sabe 
(2) * NER-LAST ADDR-=S BYTES, THIS WORD AND LOW OF “TYPE"* ABOVE 
(2) 001230 000 mams2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001231 000 SMT¥P2: .BYTE AMTYP2 ;;MEM. TYPE BLKs 
(2) 001232 SMADR2: WORD AMADR2 =; :MEM.LAST. ADDRESS .BLKA2 
(2) 001234 000 $MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS.M.S.BYTE 
(2) 001259 000 SMTVP3: .BYTE AMTYPS 3 ;MEM. TYPE BLK 
(2) 001236 000000 SMADR3: .WORD AMADR3 ;:MEM.LAST ADDRESS, BL Kas 
(2) 001240 000 SMAMS4: .BYTE AMAMS4 HIGH ADDRESS.M.S.BYT 
(2) 001241 000 SMTYP4: .BYTE AMTYP4 ;:MEM.TYPE,BLK 
(2) 001242 00 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS .BLK#4 
(2) 001244 000210 SVECT1: .WORD AVECT1 ::INTERRUPT VECTOR#1,BUS PRIORITYA#1 
(2) 001246 SVECT2: [WORD AVECT2 :ZINTERRUPT VECTORAZGUS PRIORI TY#2 
(2) 001250 174600 SE: .WORD  ABASE 
(2) 33BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000001 SDEVM: WORD ADEVM VICE MAP 
(2) 001254 000000 $CDW1: .WORD ACDW1 ; CONTROLLER DESCRIPTION WORDA1 
(2) 001256 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
(2) 001260 000000 SDDWO: .WORD ADDWO ;DEVICE DESCRIPTOR WORD#O 
(2) 001262 000000 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 
(2) 001264 000000 $DDW2: .WORD ADDW2  ;;DEVICE DESCRIPTOR WORD#2 
(2) 001266 000000 $DDW5: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
(2) 001270 000000 $DDW4: .WORD ADDWS  ;;DEVICE DESCRIPTOR WORD#4 
(2) 001272 000000 SDDWS: .WORD ADDWS  ;;DEVICE DESCRIPTOR WORD#S 
(2) 001274 000000 DDWG: WORD ADDWG =; DEVICE DESCRIPTOR WORDS 
(2) 001276 000000 $DDW7: WORD ADDW?  :;DEVICE DESCRIPTOR WORD# 
(2) 001300 000000 $DDWB: .WORD ADDWB ;;DEVICE DESCRIPTOR WORD#8 
(2) 001302 900000 DW9: .WORD ADDW9 ::DEVICE DESCRIPTOR 
(2) 001304 000000 $DDW10: .WORD ADDWIO ;;DEVICE DESCRIPTOR WORD#10 
(2) 0013 SDDW11: .WORD ADDWI1 ;;DEVICE DESCRIPTOR WORDA11 
(2) 001310 000000 $DDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORDA1 
(2) 001312 000000 $ODW13: .WORD ADDW13 :;DEVICE DESCRIPTOR WORD 
(2) 001314 000000 SDDW14: .WORD ADDWI4 ;;DEVICE DESCRIPTOR WORD#14 
(2) 001316 $DDW15: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 


pent np sasentcre a 
; 
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| 
| 


(2) 
(2) 001320 SETEND: 
(2) 


ea 5... eee ee 
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a -SBTTL ERROR POINTER TABLE 
1) z*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
: T*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F 
| i sLOCATION SIiEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE Is PERTINENT. 
i @) :*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SER 
| ti} : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS FRPLAINED AS FOLLOWS: 
| 61) 3* EM zzPOINTS TO THE ERROR MESSAGE 
(1) ce DH POINTS TO THE DATA HEADER 
(1) 3% DT zZPOINTS TO THE DATA 
+3? :* DF ::POINTS TO THE DATA FORMAT 
(1) 
(1) 001320 SERRTB 
6074 zERROR 1 
6075 001320 014066 EM1 ;REG TIMEOUT ER 
6076 001322 014757 DH1 TERRPC TSTNUM BUSADR EXPCT RCVD 
6077 001324 015130 DT1 SSERRPC TSTNUM $BDADR $GDDAT $8DDAT 
6078 001326 000000 0 
6080 sERROR 2 
6081 001330 014105 EM2 zREG READ/WRITE ER 
6082 001332 014757 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
6083 001334 015130 DT1 SSERRPC TSTNUM $BDADR $GDDAT $8DDAT 
6084 001336 000000 0 
6085 
6086 sERROR 3 
6087 001340 014127 EM3 3BUS RESET ER 
6088 001342 014757 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 
6089 001344 015130 DT1 SSERRPC TSTNUM $BDADR $GDDAT $BDDAT 
6090 001346 000000 0 
6091 
6092 ZERROR 4 
6093 001350 014144 EMG sFNCT BITS FAILED TO SET STAT BITS 
6094 001352 014757 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
6095 001354 015130 pT1 SSERRPC TSTNUM $BDADR $GDDAT $B8DDAT 
6096 001356 000000 0 
6097 
6098 sERROR 5 
6099 001360 014206 EMS READY INTR FAILURE 
6100 001362 014757 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 
6101 001364 015130 DT1 sSERRPC TSTNUM $BDADR $GDDAT $BDDAT 
6102 001366 000000 0 
6103 
6104 ZERROR 6 
6105 001370 014231 EMO sREADY CLR OR SET ER 
6106 001372 014757 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 
6107 001374 015130 DT1 SSERRPC TSTNUM $BDADR $GDDAT $BDDAT 
6108 001376 000000 0 


ne ee - 
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sERROR 7 
EM7 


| 6111 001400 014255 

| 6112 001402 014757 DH1 

| 6113 001404 015130 p11 

| $114 061406 000000 0 

| 6116 sERROR 10 

| 6117 001410 014277 EM10 
6118 001412 014757 DH1 
6119 001414 015130 DTI 
6120 001416 000000 0 
6122 ZERROR 11 

| 6123 001420 014325 EM11 

| 6134 001422 014757 DH1 
6125 001424 015130 DT] 
6126 001426 000000 0 
6127 
6128 SERROR 12 
6129 001430 014354 EM12 
6130 001432 015024 DH2 
6131 001434 015144 DT? 
6132 001436 0 
6133 
6134 ZERROR 13 
6135 001440 014375 EM13 
6136 001442 015024 DH2 
6137 001444 015144 DT2 
6138 001446 00000 0 
6139 
6140 ZERROR 14 
6141 001450 014414 EM14 
6142 001452 015101 DH3 
6143 001454 015162 DT3 
6144 001456 000000 0 
6145 
6146 ERROR 15 __ 
6147 001460 014462 EM15 
6148 001462 015101 DH3 
6149 001464 015162 DT3 
6150 001466 0000 
6153 
6152 ZERROR 16 
6153 001470 014650 EM16 
6154 001472 014757 DH1 
6155 001474 015130 DTI 
6156 001476 00 
6157 
6158 ZERROR 17 
6159 001500 014665 EM17 
6160 001502 014757 DHI 
6161 001504 015130 DTI 
6162 001506 000000 0 


F 
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earns ER ON XFER 
ZERRPC TSTNUM BUSADR EXPCT 
;SERRPC TSTNUM $BDADR $GDDAT 


sWORD COUNT ER ON XFER 
SERRPC | TSTNUM BUSADR EXPCT 
;SERRPC TSTNUM SBDADR $GDDAT 


BUFFER ADRS ER ON XFER 
SERRPC TSTNUM BUSADR EXPCT 
:SERRPC TSTNUM $BDADR $GDDAT 


DATA ER_FROM MEM 
SERRPC TSTNUM BUSADR ADRS 
3SERRPC TSTNUM SBDADR $GDADR 


zDATA ER TO MEM 
ZERRPC TSTNUM BUSADR ADRS 
:SERRPC TSTNUM $BDADR $GDADR 
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RCVD 
$BDDAT 


RCVD 
SBDDAT 
RCVD 
SBDDAT 


EXPCT 
SGDDAT 


EXPCT 
SGDDAT 


2 SINGLE 4S OFF DID NOT LOCK OUT CPU 
ZERRPC TSTNUM BUSADR 


;SERRPC TSTNUM $BDADR 


+ SINGLE CYCLE ON LOCKED OUT CPU 
C BUSADR 


RPC TSTNUM 
‘SERRPC TSTNUM $B8DADR 


sNEX LOGIC ER 
ZERRPC TSTNUM BUSADR EXPCT 
SSERRPC TSTNUM $BDADR $GCDAT 


serele relies TO CLK DBR (IN) 
SERRPC TSTNUM BDADR GDDAT 
‘ SERRPC TSTNUM $BDADR $GDDAT 


RCVD 
SBDDAT 


BDDAT 
SBDDAT 


RCVD 
SBDDAT 


RCVD 
S$BDDAT 


SEQ 0018 


o-- — + --- ee 
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[CNDRAA.PI1 = 14=DEC=82 11:43 ERROR POINTER TABLE SEQ 0019 
| 6167 ZERROR 20 
| 6168 001510 014722 EM20 DATA ER FROM 1/0 BAGE (xCSRD 
| 6169 001512 015024 DH SERRPC TSTNUM BUSADR ADRS EXPCT CVD 
6170 001514 015144 DT [SERRPC TSTNUM $BDADR SGDADR $GDDAT S$BDDAT 
6171 001516 0 
gi 
6174 ;DRV11B BUS REGISTER ADDRESS POINTERS 
6176 001520 174600 DRVWCR: ABASE :WORD COUNT 
6177 001522 174602 DRVBAR: ABASE+2 “BUFFER ADDRESS 
6178 001524 174604 DRVCSR: ABASE+4 : COMMAND/STATUS 
6179 001526 174606 DRVDBR: ABASE+6 [DATA BUFFER 
181 ;DRV11B VECTOR ADDRESS POINTERS 
6183 001530 000210 DRVCTO:AVECT1 ;READY, NEX & INCOMPLETE DATIO VECTOR 
6184 001532 000212 DRVCT2: AVECT1+2 :NEW PSW ON INTR 
6186 ms :COMMON PROGRAM LOCATION(S) 
6188 001534 000000 TSTNUM: 0 ;CONTAINS TEST NUMBER ON ERROR 
6182 001536 000001 DMAP: 1 DEVICE MAP = EA BIT SAYS TEST THAT DRVIIB 
6190 001530 000000 CORSZ: 0 [CONTAINS 1ST NON-EXISTANT MEM. ADRS 
6191 001542 015316 DBUFP: DBUF *CONTAINS CURRENT 4K NPR BUFFER ADRS 


6192 001544 000000 IOPAGE: 0 SCONTAINS ADDRESS FOR 1/0 TRANSFERS 
KDF: 0 IF KDF11-8 


eee ee ee ee ee + 
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ee ee ee ee ee eee we ee we 


NOPIPININY = PONGNPY PONY NINPOPONYUNININININID 3 2 ot 0 Ot tt Ot Ot 
er er ar ee es ee a ee ee ee ee ee eee ee 


198 
6199 
00 


1702 
7 
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737 


737 
737 
737 


eth te pb) 2 2 — 


Se=seesss oooo Sssss 
No— 
MlyUMMVInoonn pa As pa he m—nruwr 
w 
N 


a 


~ 

Ww 

SNA NNN NEN 
<S 


SNSssS 


FLRLLSNSSs= LS 
ROVMWVARNOWN RSV 


243 


001100 
001140 
001100 
012374 
000300 
012032 
000300 


177777 


001750 
000176 
000174 
000004 


001202 
000200 


001216 
001520 
001250 
000002 
001530 
001530 
001244 
170000 


000002 


000020 
000022 
000030 
000032 


001215 
001140 


PROGRAM STAR 
-SBTTL PROGRAM START 


START: 

~SBTTL INITIALIZE Lb COMMON TAGS 

::CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMT 


AG, R6 ssFIRST LOCATION TO 5 CLEARED 
CLR (R6)+ 77;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? © 
Ad 76 3;LOOP BACK IF NO 
K,SP zzSETUP THE STACK POINTER 


#STACK 
ss INITIALIZE A FEW VECTORS 
#SSCOPE ,a# LOTVEC #107 VECTOR FOR SCOPE ROUTINE 
MOV #PR6,A#IOTVEC+2 ;: LEVEL 
MOV #SERROR @#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 


asnen MOV #PR6,QMEMTVEC+2 = LEVEL 
a MOV . #STRAP,@#TRAPVEC ; z TRAP VECTOR FOR TRAP CALLS 
MOV #PR6, a#TRAPVEC+2;LEVE 
MOV #SPWRDN, a#PWRVEC : POM FAILURE VECTOR 
MOV #PRG -Q#PURVEC +2 sel 


CLR STIMES ‘Th THTALIZE NUMBER OF ITERATIONS 
CLR ESCAPE 33 CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX sALLOW ONE ERROR PER TEST 
ee Ene THE LOCP wren ty FOR SCOPE 
MOV eSLPERR SE ERROR LOOP ADDRESS 
33 SIZE FOR A HARDUARE ph REG cigter- F NOT FOUND 
SETU e, SORTWARE. SWITCH REGISTER. 
ERROR VECTOR 


33EQUAL TO A *=1"", 
MOV avERR vec, nse) 33 SAVE 
MOV #64$ age RRVEC ee Set UP ER 


ROR VECTOR 
MOV #DSWR, SWR *SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSuR +: TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ;3BRANCH IF NO TIMEOUT TRAP OCCURRED 
S:AND THE HARDWARE SWR IS NOT = -1 

BR 65$ ::BRANCH IF 

64$: Mov #65$, (SP) ::SET UP FOR TRAP RETURN 

65%: MO #SWREG, SWP yiiPOINT TO SOFTWARE SwWR 
MOV #DISPREG, DISPLAY 


66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS CLEAR PASS COUNT 

BITB #APTSIZE ,SENVM SITEST USER aa 3 ec hr 
BEQ 67$ 2YES,USE NON-APT SWITC 

MOV #SSWREG, SWR 3:NO,USE APT SWITCH REGISTER 


67$: 
START1: MOV #DRVWCR,RO 


3SET UP REG ADRS POINTERS 
MOV SBASE Ri 3GET BASE ADRS 
SETUP2: mov R1, (RO)+ SLOAD EM 


#2,R1 
CMP #DRVDBRE2, 20 ALL DONE? 
SETUP F NOT 

MOV #DRVCTO,RG SSET UP DRV11B VECTOR ADRS POINTER 
Mov SVECT1_R1 [GET BASE VECTOR ADRS 

BIC #170000,R1 3CLR OUT PRIORITY BITS 
SETUP3: MOV R1, (RO) 
ADD #2,R1 ‘POINT TO NEXT 


. 
—— 


SEQ 0020 
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MAINDEC=11=CNDRA=A DRVI1B, DMA INTERFACE DIAGNOSTIC | 
CNDRAA.P11 - 14=DEC=82 11:43 INITIALIZE THE COMMON TAGS SEQ 0021 
6209 002060 022700 001534 CMP #DRVCT2+2,RO  :ALL DONE? 
6210 002064 001372 BNE SETU PS [BR IF NOT 
6211 .SBTTL TYPE PROGRAM NAME 
(1) sz TYPE THE NAME oe THe PROGRAM IF binge wae 
/ <1) 002 005227 177777 INC zsFIRST TIME? 
/  €1) 002072 +001052 | BNE cis 3 SBRANCH IF 
(1) 002074 104401 002142 YPE — ASCIZ NO TRING 
(2) -SBTTL GET vault” +m SOF TWARE siiten oy be ER F 
(2) 002100 005737 000042 TST ana2 yARE WE RUNNING UNDER XXDP/ACT? 
(2) 002104 001012 BNE aes 3 TBRANCH IF YES 
(2) 002106 123727 001214 000001 CMPB fs SENV,, #1 GGARE WE RUNNING UNDER APT? 
(2) 002114 001406 BEQ 66$ SBRANCH IF 
(2) 002116 «023727 001140 000176 CMP SWR, #SWREG 33 SOF TWARE SWITCH REG SELECTED? 
| (2) 002124 001005 BNE 67$ ‘BRANCH 
(2) 002126 104406 GTSWR :GET SOF T=-SWR SETTINGS 
/ (2) 002130 000403 BR 67$ 
(2) 902152 112737 000001 001134 668: MOVB  #1,$AUTOB z:SET AUTO-MODE INDICATOR 
(1) 002140 000427 BR 64$ 3GET OVER THE ASCIZ 
+13 002220 ij6>5: e-ASCIZ <CRLF>#MD=11=CNDRA-A DRV11B DMA INTERFACE DIAG #<CRLF> 
6212 002220 005227 177777 INC #1 ZFIRST PASS? 
6213 002224 001022 BNE 100$ [BRANCH IF NO 
6214 002226 122737 000001 001134 CMPB #1,S$AUTOB sMANUAL INTERVENTION PERMITTED? 
6215 002234 001416 BEQ 100$ 7BR IF NO 
6216 002236 104401 015172 TYPE, KDF11B SASK ABOUT KDF11-B 
6217 002242 104410 RDCHR sREAD ANSWER 
6218 002244 012637 001546 MOV (SP)+,KDF sSTORE ANSWER 
6219 002250 104401 001546 TYPE, KDF [ECHO ANSWER 
6220 002254 123727 001546 000131 CMPBsiKKDF, #1311 t1$ IT KDF11-8? 
6221 002262 001003 BNE ‘BRANCH IF NOT 
6222 002264 152777 000200 176646 BIS8 #$#BITO7,aSWR 31F YES.SET SWREG 
6223 002272 005737 001540 100$: TST CORSZ [TEST IF FIRST PASS 
6224 002276 001002 BNE CORSZR F NOT 
6225 2300 104401 014521 TYPE, WARN TELL THE OPERATOR TO TURN OFF DMA REFRESH 
62. 6 peeeeeeeeeeeeeneeteeeeteeeeeeeedeeeeeedeeeeteneeeeeeeeeeneeeeene 
6227 zter’ S SEE HOW MUCH MEM WE HAVE 
6228 ae ie aan a|}| 6 6hCha ia 
6229 002304 012700 020000 CORSZR: MOV #20000,RO iUSE RO T 
6230 002310 012737 002322 000004 MOV #2$,a#ERRVEC  :SET UP Time oOuT RETURN ADRS 
6231 002316 005720 1$: TST (ROS+ STAKE A LOO 
6232 002320 000776 BR is SUNTIL TIMEOUT 
6233 002322 042700 017777 23: BIC rrr g9° Hath TO 1ST NON-EXSISTANT 4K BLK 
6234 002326 010037 001540 MOV RO, COR AVE FOR LATER 
6235 002332 012737 000006 000004 MOV oehauECe2, averrvic RESTORE VECTOR 
6236 340 012737 015316 001542 MOV #DBUF DBUFP INITIALIZE TO LOWEST 4k 
6237 002346 012737 000000 001206 MOV [SET UP UN 
6238 002354 013737 001252 001536 MOV SDEVA. DMAP GET THE # © POSITION OF DRVI1B'S 
6239 002362 042737 177400 001536 BIC #177400, DMAP P TO 8 ONLY 
6240 002370 001406 BEQ $0 CONTINUE AS IF SOMETHING WAS SELECTED 
6241 002372 032737 000001 001536 BIT OF DMAP 71S 1ST DRV11B SELECTED? 
6242 002400 00100 BNE RESTRT 3BR IF SO 
43 002402 000137 007674 JMP NXDEV1 “NO = GO ADVANCE BASE DRVIIB ADDRESSES 
6244 002406 106427 000200 RESTRT: MTPS #200 *SET PRIORITY TO HIGHEST LEVEL 
6245 002412 01 706 001100 MOV #STACK,SP TALWAYS RESET STACK 
6246 002416 013737 001206 001204 MOV SUNIT,$DEVCT | :LOAD APT COUNTER 
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[CNDRAA.P11 —— 14=DEC=82 11:43 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0022 
| 6247 002424 013700 001206 MOV _—s SUNIT, RO ZMAKE AN INDEX 
| 6248 002430 006300 ASL _—RO : VALUE 
| 6249 002432 013760 001520 001260 MOV _—sDRVWCR, SDDWO(RO)’ THE BUS ADDRESS 
| 6350 002440 000005 RESET SINITIALEZE. ERVIIB BEFORE TESTING 
} 6251 pReeeeeeeeeeneeeeeeeeeeeneeeeeedeeneeereteneeeeeteeeeneeeteeres 
| “'e SSTEST 1 TEST THAT ALL DRV118 REGS ARE ACCESSIGLE 
j (3) FRERAARAEREEAAAAAAAEEEEEE EERE TARA EEAEEARERAERAEAAEAERERREREEEEE 
| (2) 002442 000240 iéT1: <NOP> 
| (1) 002444 012737 002460 001106 MOY —#IOS.SLPADR SET SCOPE LOOP. ADDRESS 
(2) 002452 012737 000001 001200 MOV —s- #1, $TESTN SET TEST NUMBER IN APT MAIL BOX 
6252 002460 112737 000001 001102 10$:  MOVB 4#1,$TSTNM 28ET TO TEST 
6253 002466 012737 002522 001110 MoV «#718, SLPERR SET UP SCOPE “LOOP ADRS 
6254 002474 005037 001124 CLR $GDBAT “NO DATA COMPARE 
6255 002500 005037 001126 CLR —« $BDD ‘NO DATA COMPARE 
6256 002504 012737 002540 000004 SOY FOS OPERRVEC 3SET UP TIMEOUT RETURN ADDRS 
6257 002512 013700 001520 MOV _—sDRVWCR, RO SET UP 1ST DRVI1 BUS ADRS 
58 002516 012701 000004 MOV so #4, RT SET UP REG COUNT 
6259 002522 010037 001122 1$: MOV _—~RO, SBDADR *SET Up CURRENT DRV BUS ADRS 
260 002526 005710 TST (RO) :SEE IF THERE 
6261 530 005720 TST (RO)+ : TO NEXT 
002532 005301 DEC — sR *COUNT 4 OF THEM 
6263 002534 001403 BEQ0tié3S <BR IF ALL DONE 
64 002536 000771 BR 1$ TRY NEXT 
6265 002540 022626 2$: CMP (SP)+,(SP)+ FIX ne CK SINCE NO RTI 
6266 002542 104001 ERROR 1 BUS ADRS INDICATED DID NOT RESPOND 
6267 002544 012737 000006 000004 3$: HOV WERRVEC#2.a#ERRVEC’ SRESTORE LOC. & 
6269 FARRAR AAAAAERRE RARER TERA E TERE EREEAEEAEAEEAERAERERAERAEREREEE 
(3) TEST 2 TEST THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
(3) ZF ERAAAAERRERAEREAAEAEE EE EAEEEEEAREAAEEEERERERAREREREREREERAEEEREEE 
(2) 002552 000004 7812: SCOPE 
6270 002554 012737 002600 001110 MOV —s- #1$, SLPERR SET UP SCOPE LOOP ADRS 
6271 002562 013737 001520 001122 MOV DRVUCR, SBDADR SET UP WC REG ADR 
6272 002570 005000 CLR ~—s- RO RO SAYS SHIFT PTRN WHEN 0 
6278 002572 012737 177776 001124 MOV #2, SGDDAT FLOAT 0 RIGHT TO LEFT 
6274 002600 018777 001124 176712 18: MOV -« $GDDAT, @DRVWCR LD WC 
6275 002606 017737 176706 001126 MOV -—« @DRVWCR, SBDDAT READ IT BACK 
6276 002614 023737 001124 001126 CMP —«- $GDDAT, $BDDAT 3 CORRECT? 
6277 002622 001401 BEQ tél :BR IF $0 
6278 002624 104002 ERROR 2 D COUNT WRITE/READ FAILURE 
6279 002626 005137 001124 2$: COM - $GDDAT <COMPELEMENT ZER 
6280 002632 005100 COM = RO iO, SAYS SHIFT LEFT WHEN 
6281 002634 001361 BNE 1$ THE COMPLEMENT IF RO NOT O 
6282 002636 006337 001124 ASL S$GDDAT : COMPLEMENT US BONE © NOW SHIFT ZERO LEFT 
6283 002642 005237 001124 INC —- $GDDAT AEEP LSB SET 
6284 002646 103754 BCS 1$ AGAIN TILL ALL PATRNS DONE 
6286 J RAAAAAAAAAEEAAAAAAEAAA AAA AAAAAEAAAAERATAEAEAEAEAAERERERAREAEAAEE 
(3) TSTEST 3 TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRND 
(3) eee TA Titi tiie i iii i iit i titi iii titi tigi i iii ti iii iriririiiiyy 
(2) 002650 000004 1813: SCOPE 
6287 002652 012737 002676 001110 MOV —s- #18, SLPERR SET UP SCOPE LOOP ADRS 
6288 002660 013737 001522 001122 MOV —sODRVBAR, SBDADR :SET UP BA REG ADRS 





-—_——-—————- + ee a ee eee = + ee ——— ———— — 


2 
'MAINDEC=11=CNDRA=A DRV11B ”~ INTERFACE 4 AGNOSTIC MACY11 30(10465 14=DEC=82 11:44 PAGE 61-13 


/CNDRAA. Pll: 14=DEC=82 11:43 TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) SEQ 0023 
| 6289 002666 005000 CLR RO :RO SAYS SHIFT PTRN WHEN 0 
6290 002670 012737 177774 001124 MOV #=4, SGDDAT ;FLOAT 0 RIGHT TO LEFT 
| 6291 002676 013777 001124 176616 18: MOV SGDDAT, @DRVBAR 
6292 002704 017737 176612 001126 MOV @DRVBAR.SBDDAT READ IT BACK 
| 6293 002712 042737 000001 001126 BIC #81T00,$8DD [DON'T WANT BITOO 
6294 002720 023737 001126 CMP SGDDAT.$BDDAT CORRECT? 
| 6295 002726 001401 BEQ $ :BR IF SO 
| 6296 002730 104002 ERROR 2 SBUS ADRS WRITE/READ FAILURE 
6297 002732 005137 001124 2$: COM SGDDAT :COMPLEMENT ZERO 
6298 002736 042737 000001 001124 BIC #BITOO,$GDDAT :BIT 00 NOT INVOLV 
6299 002744 005100 COM RO :RO SAYS SHIFT LEFT = 
6300 002746 001353 BNE 1$ : E OMPL NT IF RO NOT 0 
6301 002750 006337 001124 ASL $GDDAT ;COMPLEMENT WAS DONE = NOW SHIFT ZERO LEFT 
6302 002754 103004 BCC TST4 =;NEXT TEST IF BIT 15 DONE 
6303 002756 062737 000002 001124 ADD ie. $GDDAT ‘KEEP ADDR LSB SET 
6304 002764 000744 BR SAGAIN TILL ALL PATTERNS DONE 
6306 FARARAARAREREEAAREE AEE EE AETERERAEEAEEEERERAREREREREEEEEEREREEEEEEE 
(3) TEST 4 TEST THAT THE DATA BUFFER REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
(3) FERRARA REEAAEAEAAAEEEEE AA EEEEEEAEAAAERAARAEEEEAAAAEAEEARAEREREEEE 
(2) 002766 000004 i814: SCOPE 
6307 002770 012737 003014 001110 MOV #1$,SLPERR :SET UP SCOPE LOOP ADRS 
6308 002776 013737 001526 001122 MOV DRVOBR,SBDADR © ;SET UP DB REG ADRS 
6309 003004 005000 CLR RO “RO SAYS SHIFT PTRN WHEN 0 
6310 003006 012737 177776 001124 MOV #-2, $GDDAT *FLOAT 0 RIGHT TO LEFT 
6311 003014 013777 001124 176504 1S: MOV SGDDAT,aDRVDBR :LD DB 
6312 003022 017737 176500 001126 MOV QDRVDBR,$BDDAT :READ IT BACK 
6313 003030 023737 001124 001126 CMP SGDDAT, $BDDAT ; CORRECT? 
6314 003036 001401 BEQ $ <BR IF SO 
6315 003040 104002 ERROR 2 sDATA BUFFER WRITE/READ FAILURE (LOOP BACK) 
6316 003042 005137 001124 2$: COM $GDDAT [COMPLEMENT ZERO 
6317 003046 005100 COM RO :RO SAYS SHIFT LEFT WHEN = 
6318 003050 001361 BNE 1$ THE COMPLEMENT IF RO NOT 0 
6319 003052 006337 001124 ASL $GDDAT : COMPLEMENT WAS DONE = NOW NONIFT ZERO LEFT 
6320 003056 005237 001124 INC $GDDAT “KEEP LSB SET 
6321 00 103754 BCS 1$ CAGAIN: TILL ALL PATRNS DONE 
6323 FARRAR AAAAEREEEAEA AE AEEE EEE RAAEEARAAAAAERERERAEEEAAEEEEEREEE 
(3) STEST 5 TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 
(3) FRR AAEAEAEEAAAEAEEAERAAAAAAEAAEEAEREREAERERAERAE EEE 
(2) 003064 000004 i815: SCOPE 
6324 003066 013700 001526 MOV DRVDBR,RO :GET DB REG ADRS 
6325 003072 010037 001122 MOV RO, $BDADR [SET UP DB REG ADRS 
6326 003076 005010 CLR (RO) :ZERO DATA BUFFER REG 
6327 003100 012737 177177 001124 MOV #1777? SGDDAT [LD EXPECTED 
6328 003106 012737 077776 001126 MOV 6. $BDDA 3SEND DATA FROM “BDDAT" 
6329 003114 153760 001126 000001 BISB SeaDAT BO LOAD HI BYTE DB 
6330 003122 153710 001127 BISB SBDDATA RO) ;LOAD LO BYTE DB 
6331 003126 011037 001126 MOV (RO) ,SBDDAT SREAD IT BACK 
6332 003132 023737 001124 001126 CMP SGDDAT, $BDDAT ;CORRECT? 
6333 003140 001401 BEQ TST6 “NEXT TEST IF SO 
65334 003142 104002 ERROR 2 {BATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG 
6336 FARMER AAAAAAAAAAAKEKAAAATHAAEAAAAAAEAARAAAAA AKER RARER ee 
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(CNDRAA.P11 ——14=DEC=82 11:43 16 TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS SEQ 0024 
Pe om seTEST 6 TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS 
| (3) *REEAAAAEAAAAAAAAAEATAAATATEEEAEAAAAAAAAAARAAARARAAAAAEAAEEAAAEEAERE 
| & 003144 000004 i816: SCOPE 
| (4) 003146 012737 000010 001160 MOV #10, STINES 73:00 10. ITERATIONS 
6337 003154 005037 001124 CLR $GDb :LD EXPECTED 
6338 003160 012777 177777 176332 MOV soy aDRVUCR [SET ALL BITS = WC REG 
6339 003166 012777 177776 176326 MOV #-2. aDRVBAR [SET ALL BITS = BUS ADRS REG 
6340 003174 012777 177777 176324 MOV #~1 aDRVDBR 'SET ALL BITS = DB OUT REG 
6341 003202 000005 RESET [D0 A BUS RESET 
6342 003204 017737 176310 001126 MOV @DRVWCR,SBDDAT READ WC 
6343 003212 001404 BEQ 1$ *BR IF a D 
6344 003214 013737 001520 001122 MOV DRVWCR,$BDADR iSET WC REG ADRS 
6345 003222 104003 ERROR 3 RESET “FAILED TO CLR WC REG 
6346 003226 017737 176272 001126 1$: MOV @DRVBAR,SBDDAT READ BUS ADRS REG 
6347 003232 042737 000001 001126 BIC #BITO0,$BDDAT :DON'T WANT BITTOO 
6348 003240 001404 BEQ 2$ [BR IF CLRED 
6349 003242 013737 001522 001122 MOV DRVBAR, SBDADR iSET UP BA REG ADRS 
6350 003250 104003 ERROR 3 RESET FAILED TO CLR BUS ADRS REG 
6351 003252 017737 176250 001126 2$: MOV QDRVDBR,SBDDAT :READ DATA ;BUEF ER REG 
6352 003260 001404 BEQ TST7 3 gNEXT TEST IF CLRED 
6353 003262 013737 001526 001122 MOV DRVDBR, $BDADR UP DB REG ADRS 
6354 003270 104003 ERROR 3 <RESET FAILED TO CLR DATA BUFFER OUT REG 
6356 FERRARA AEREEREREEEEEAEEREREEEEAAAAEEEAEREREEEAEEEEERAEREREEEEEEEE 
(3) TEST 7 TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT PTRN) 
(3) FRAAAARAARARERERAAEAEAEEEAEAAEEAERAAAAARAAAAEAEAAEEEREKEEEEEREREEREE 
(2) 003272 000004 1817: SCOPE 
(1) 003274 012737 001160 MOV #10,STIMES 3:D0 10 ITERA ATIONS 
6357 003302 106427 000200 MIPS) sot DON'T WANT hn INTRS 
6358 003306 004537 010112 JSR RS, SETVEC [SET UP INTR RETURN ADRS IN CASE 
6359 003312 003410 3$ [RETURN TO 3$ ON ILLEGAL INT 
003314 013737 003334 001110 MOV 1$,$LPERR :SET UP SCOPE LOOP A 
6361 003322 013737 001524 001122 MOV DRVCSR,S$BDADR ;:SET UP CSR ADRS 
003330 012700 160000 MOV #160006,R0 ZSTART AT 0 = HI BITS FOR NOISE 
6363 003334 010037 001124 1$: MOV RO, $GDDAT ‘LD EXPE 
003340 042737 167201 001124 BIC #167201, $GDDAT ;MASK To WRITEABLE BITS 
6365 003346 610077 176152 MOV RO, @DRVCSR 
003352 017737 176146 001126 MOV @DRVCSR- SBDDAT TREAD fr BACK 
6367 003360 042737 007200 001126 BIC #7200,$B8DDAT :DON'T LOOK AT STAT & RDY BITS 
003366 023737 001124 001126 CMP ScBDATS SBDDAT 3 CORRECT? 
6369 003374 001401 2$ F SO 
6370 003376 104002 ERROR 2 SCONTROL/STATUS REG WRITE/READ FAILURE 
6371 003400 062700 000002 2$: ADD #2,R0 SADVANCE COUNT N 
6372 003404 001353 BNE 1$ SWRITE NEXT PATTERN IF NOT ALL TESTED 
6373 003406 000413 BR 4$ [GO RESTORE VECTOR 
6374 00341 022626 3$: CMP (SP)+ (sp) :FIX STACK = SHOULD NOT HAVE INTR°ED 
6375 003412 052737 000200 001124 BIS #200, $GDD [CORRECT EXPECTED 
6376 003420 017737 176100 001126 MOV aDRvesR, OORDDAT TREAD CS 
6377 003426 042737 007000 001126 BIC #7000, $8DDAT DON'T WAN WANT *STAT® BITS 
6378 003434 104005 ERROR § [CPU FAILED TO LOCK OUT DRV11B INTR REQ 
6379 003436 004737 010132 4$: JSR PC RSTVEC 260 RESTORE VECTOR 
6381 FETA AEEEAAAAAEAAAE ACES AAAEAEAAAAAEREERAEEAEEAEEEREEEEAEREREEE 


(3) SSTEST 10 TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR 
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TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR 


St agg eg sate ta ita 0 ital <aepeilaiace = eel Aer ea tales re gait 


3300 10 ITERATIONS 
T_UP_CSR ADRS 


3SE C 

3LD ECTE 

3LD ALL CSR BITS 
300 US RESET 
sREA CSR 

:COR 


RECT? 
“NEXT TEST IF CSR CLRED & READY SET 
tRESET FAILED TO SET UP THE CSR 


FERRARI EEE E ARERR EERE EREREEAEEREREREEEEEEEREREEEE 


TEST THAT THE CSR IS BYTE ADDRESSABLE 


SEERA AEE EEEEEEEEEEEEAERAEEEEREKREEREREEEEEEREREEEEEE 


GET CSR _ ADRS 
3SET 1? ADRS 


$LD EX 


PECTED 
7SEND DATA Age I  esealll - USE MAIN + IE 


;LOAD HI BYTE C 
3LOAD 1? BYTE C&R 
sREAD IT BACK 

3 CORRECT? 


:BR_IF SO 
DATA ERROR ON BYTE ADDRESSING THE CSR 


ZERO CSR BEFORE ADVANCING 


FARRAR AEEAEEAEEEEEEAAE EERE EEEAEREEREEEEEREREEEEEREKEREKRE 


TEST THAT THE 3 “‘FNCT’’ BITS CONTROL THE 3 ‘‘STAT’* BITS “(COUNT PTRN) 


FREER EEEAAERE REESE REE EERE RAE EEEEEEEEEREKEEEREEREEEEEEE 


SET UP SCOPE LOOP ADRS 
CSR ADRS 


TED 
AINS “FNCT’* BITS WRITTEN 
Mn cr’* BIT 


3 U ‘STAT’ BITS 
MASK TO CN STAT BITS ONLY 
; CORRECT? 


BR IF SO 
;"FNCT’ BITS FAILED }, set *““STAT" 
3 CHANGE TO bop ty ECT 
;DECREASE COUN PATTERN, 
:D0 AGAIN ONTIL 0 TESTED 


FRA ER ERE EAE TEE TEE EEA EEEAEEEEEEEEEREEEAEEREEREEEEEE 


TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 


MARRASZASALALELALARALA LALLA AREAL ELLA ALAR RAR R RR RARE RRR LRA SS 


DIAGNOSTIC 
T10 
+8110: SCOPE 
MOV #10, $TIMES 
MOV DRVCSR, $BDADR 
MOV #200, $GDDAT 
M #-2,aDRVCSR 
RESET 
MOV @DRVCSR, $BDDAT 
CMP SGDDAT, $BDDAT 
BEQ TST11 
ERROR 
zSTEST 11 
+8111: SCOPE 
MOV DRVCSR,RO 
MOV RO SBDADR 
CLR (R 
MOV #10300, $GDDAT 
MOV #40020, $BDDAT 
BISB  $BDDAT.1(RO) 
BIS8 $BDDAT#1, (RO) 
MOV (RO) ,SBDDAT 
CMP SGDDAT, $BDDAT 
BEQ 1$ 
ERROR 2 
1$: CLR (RO) 
zeTEST 12 
+8112: SCOPE 
MOV #1$,$LPERR 
MOV DRVCSR SBDADR 
MOV 0, $GDDAT 
MOV 
1$: MOV RO, aDRVCSR 
MOV QDRVCSR, $BDDAT 
BIC #170777. SBDDAT 
CMP SGDDAT, $BDDAT 
BEQ 2s 
ERROR 
2$: SUB #1000, $GDDAT 
SUB #2,R0 
BPL 
tSTEST 13 
78113: | SCOPE 
MOV #10, $TIMES 


3:00 10 ITERATIONS 


BITS (LOOP BACK) 


SEQ 0025 
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‘ores: P11 14=DEC=-82 11:43 T13 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 
| 6421 003706 106427 000200 MTPS #200 sDONT WANT INTR YET 
6422 00371 05 RESET oset THE READY FLAG BY INIT 
' 6423 003714 012777 003774 173608 MOV #1$,aDRVCTO SET us PREMATURE INTR RETURN ADRS 
| 66424 003722 013737 001524 00112 MOV DRVCSR, er SET P CSR ADRS 
6425 003730 012737 000300 001124 MOV #300, $6D 3LD EXPECTED (READY + IE) 
6426 0035736 106427 000000 MTPS #0 zALLOW AN INTR 
6427 0035742 021616 CMP (SP), (SP) : 
| 6428 003744 012777 004010 175556 MOV #2$, aDRVCTO 3SET UP EXPECTED INTR RETURN ADRS 
6429 003752 052777 000100 175544 BIS #B1T6, @DRVCSR ;ENABLE THE EXPECTED INTERRUPT 
0037 021616 CMP SP), 3STALL 
6431 003762 017737 175536 001126 MOV @DRVCSR, SBDDAT +} THE CSR 
6432 003770 104005 ERROR 5 sREADY FAILED TO CAUSE AN INTERRUPT 
6433 003772 000417 BR 3$ 760 RESTORE VECTOR 
003774 022626 1$: CMP (SP)+,(SP)+ i SHOULD NEVER GET HERE = IE NOT WORKING? 
6435 003776 017737 175522 001126 MOV @DRVCSR,$BDDAT [GET T HE CS 
004004 104005 ERROR 5 sREACY INTERRUPTED WITHOUT THE IE BIT 
6437 004006 000411 BR 3$ 760 RESTORE VECTOR 
004010 022626 2$: CMP (SP)+,(SP)+ PIX aot SINCE NO RETURN 
6439 004012 017737 175506 001126 MOV aDRVCSR, SBDDAT TREAD STATUS 
6440 004020 023737 001124 001126 CMP SGDDAT, $BDDAT 3; CORRECT? 
6441 004026 001401 BEQ 3$ BR IF SO 
6442 0040 104005 ERROR 5 s INCORRECT STATUS ON READY INTR 
acer 004032 004737 010132 3$: JSR PC ,RSTVEC 760 RESTORE VECTOR 
6445 FERRER ARERR RARE RERERE TEER EE EERE EREREREEEREREREREEEEEREEEREREE 
(3) TEST 14 TEST THAT GO CLRS READY & FNCT 2 WILL SET IT 
(3) FERRER RERAEEEERE EERE REE REREREREAAAEREREREAEREEREREREEERERERERE 
($? 004036 000004 Tét14: SCOPE 
6446 004040 106427 000200 MTPS #200 sDONT WANT ANY INTRS 
6447 004044 013737 001524 001122 MOV DRVCSR,$SBDADR 3SET UP CSR ADRS 
6448 004052 005037 001124 CLR SGDDAT XPECT 0 
6449 004056 012777 000001 175440 MOV #1,aDRVCSR SET GO WHICH SHOUD CLR READY 
6450 004 017737 175434 00112 MOV @DRVCSR SBDDAT TREA D THE CSR 
6451 004072 023737 001124 001126 CMP SGDDAT,$BDDAT CORRECT? 
6452 004100 001401 BEQ 1$ 3BR IF SO 
6453 004102 104006 ERROR 6. ;THE GO BIT FAILED TO CLR READY 
6454 004104 052777 000004 175412 1$: BIS QDRVCSR SFNCT T 2 SHOULD SET READY 
6455 004112 012737 op espe 001124 MOV 42508" SGDDAT LD EXPECTED 
6456 004120 017737 175400 001126 MOV @DRVCSR, $BDDAT 3GET CS 
6457 004126 023737 001124 001126 CMP SGDDAT, $BDDAT ; CORRECT? 
6458 004134 001401 BEQ TST15 + NEXT TEST IF SET 
25 004136 104006 ERROR 6 sFNCT 2 (VIA ATTN) FAILED TO SET READY 
6461 FREER RAEAEAEEERE EERE EERE EEREEAAREREEREREREREREEREREREEREEEEEES 
(3) ATEST 15 TEST THAT READY CONTROLS ‘BAR* BITOO 
(3) SERRA ERE EERE E EEE EEE REE EREREREREREREAERERERERERERERERE EE 
s 004140 000004 7115: SCOPE 
6462 004142 012777 000004 175354 MOV #4 ,ADRVCSR SET yh 
6465 004150 013737 001522 001122 MOV DRVBAR, + nate SET UP BAR ADRS 
6464 004156 012737 000001 001124 MOV #1, $GDDAT 3EXPECT * OF BAR 
6465 004164 005077 175332 CLR @DRVBAR LR BAR 
6466 004170 017737 175326 001126 MOV @DRVBAR , SBDDAT ‘READ BAR 
6467 004176 023737 001124 001126 CMP $GDDAT, $BDDAT CORRECT? 
6468 004204 001401 BEQ 1$ 38 R IF SO 


SEQ 0026 
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CNDRAA.P11 - 14=DEC=82 11:43 T15 TEST THAT READY CONTROLS "BAR BITOO SEQ 0027 
| 6469 904206 04002 ERROR 2 zA00 FAILED TO READ A ONE(SB TIED TO RDY) | 
| 6470 004210 O1277 000001 175306 1$: MOV #1, aDRVCSR :SET GOC(CLRS BAR BITOO) 
64671 004216 017737 175300 001126 MOV @DRVBAR,SBDDAT READ BAR 
6472 004224 001403 BEQ :BR IF ZERO 
6473 004 26 005037 001124 CLR $GDDAT ZEXPECTED ZERO 
6474 004 32 10400 ERROR 2 WHEN RDY CLRED-A00 FAILED TO READ A ZERO 
| 6475 004 012777 000004 175262 28: MOV #4, @DRVCSR SINSURE RDY SET BEFORE ADVANCING 
647 Fs ARAAAAAEARAAARAAEEAREREREEEERAEAAEREAERARREEEEEAEERREREREEREREE 
(3) tSTEST 16 TEST THAT "CYCLE® WILL CLOCK THE DBR (IN) 
| (3) SRAEAEAAAAEAAAAAAAAAAAAAAATCEAEAARAAAAAEAAAAARAEREAAAEAAAEEEAEAEREREEE 
(2) 004242 000004 +8116: SCOPE 
6478 004244 013737 001526 001122 MOV DRVDBR SBDADR :SET up DBR ADRS 
6479 004252 012737 125252 001124 MOV #125252,$GDDAT :LD EXPECTED 
6480 004260 013777 001124 175240 MOV SGDDAT ,aDRVDBR LD DBR WITH #125252 
6481 004266 012777 000400 175230 MOV #400 a RVCSR T CYCLE = SHOULD CLK DBR (IN) 
6482 004274 012777 052525 175224 MOV #5252 ,aDRvDBR 3C HANGE D DBR (OUT) DATA = SHOULD NOT AFFECT (IN) 
6483 004302 017737 175220 001126 MOV @DRVDBR,S$BDDAT READ DBR 
6484 004310 023737 001124 001126 CMP SGDDAT,$BDDAT CORRECT? 
6485 004316 001401 BEQ 1$ :BR IF SO 
6486 004320 104017 ERROR 17 SCYCLE DID NOT LATCH DBR (IN) DATA 
6487 004322 042777 000400 175174 1$: BIC +400 @DRVCSR REMOVE CYCLE 
6488 004330 012737 052525 001124 MOV #52525 SCDDAT 3NOW EXPECT #52525 
6489 006336 017737 175164 001126 MOV DBR, $BDDAT DBR 
6490 004344 023737 001124 001126 CMP ScoDAT. $5ppat CORRECT? 
6491 004352 001401 BEQ TST1 :NEXT TEST IF 
649 004354 104002 ERROR 2 :BBR FAILED TO READ WHEN CYCLE CLRED (NORMAL) 
6494 FRRAAAAAAAAEAAAEAAEEAAEEA EEE AAAERERAEEAEREREERAERERERAREERERREERE 
(3) tSTEST 17 TEST SINGLE “DATI'’ NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
(3) SREAAAAAAAAAARAARAREATARARAAAAAAARARAAARARAARARAREAAAREEAREREEEEEE 
(2) 004356 000004 +8117: SCOPE 
6495 004360 012737 004402 001110 MOV #1$,SLPERR :SET UP SCOPE LOOP ADRS 
96 004 004537 010112 JSR RS, SETVEC 60 SET up B INTERRUPT RETURN 
6497 004372 004476 23 RETUR $ ON INTR 
6498 004374 012700 177776 MOV #-2,R0 SFLOAT NERO RIGHT TO LEFT 
004400 005001 CLR RI :R1 CONTROLS DATA SHIFTING 
6500 004402 O12777 177777 175110 18: MOV #1, aDRVWCR [D0 ONE XF 
6501 004410 012777 015316 175104 MOV #DBUF, QDRVBAR [GET DATA WORD FROM ‘DBUF* 
6502 004416 010037 015316 MOV R :SET UP MEM DATA 
6503 004422 012777 000101 175074 MOV #10) SDRVCSR [SET IE & GO 
6504 004430 052777 000400 175066 BIS #400.aDRVCSR SET CYCLE 
6505 004436 106427 000000 MTPS = #0 SENABLE THE INTR 
506 004442 013737 001524 001122 MOV DRVCSR, SBDADR iSET UP CSR ADRS 
6507 004450 012737 000700 001124 MOV a7 D EXPECTED 
6508 004456 017737 175042 001126 MOV aprvesr, SBDDAT READ THE CSR 
6509 004464 042777 000100 175032 BIC a0. aDRVCSR =: CL IE 
6510 004472 104005 ERROR 5 ‘WO FAILED TO INTERRUPT (CHECK FOR WCO) 
6511 004474 000442 BR 4s GO RESTORE V 
6312 004476 022626 2s: CMP (SP)+, (SP)+ SINTR RETURNS SERE - FIX STACK SINCE NO RTI 
6513 004500 004537 010156 JSR R5,CKSTAT :GO CHECK STATUS 
6514 904504 700 700 CSR eFaTus EXPECTED 
6515 506 000001 1 XFERS 
6516 004510 104007 ERROR 7 RETURN HERE IF STATUS ER = EXPECTED CYCLE, READY & IE 
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TEST SINGLE MATL NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
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6517 004512 000433 
6518 004514 104010 
6519 004516 000431 
6520 O04 2s 104011 
6521 004522 ep ett 
652 O06 263 012737 015316 
$35 0045352 ape i 001124 
6524 004536 017737 174764 
6525 004544 023737 001124 
6526 004552 001405 
6527 004554 913737 001526 
6528 004562 104012 
6529 004564 000406 
6530 004566 005100 
6531 004570 005101 
6532 004572 001303 
6533 004574 006300 
6534 004576 200 
6535 004600 10370C 
6536 004602 737 010132 
6537 
6538 

(3) 

(3) 

($3 004606 000004 
6539 004610 012737 004632 
6540 004616 004537 010112 
6541 004622 004720 
6542 004624 012700 177776 
65435 004630 005001 
6544 004632 012777 177777 
6545 004640 012777 015316 
6546 004646 010077 174654 
6547 004652 012777 000103 
6548 004 052777 000400 
6549 0046 106427 000000 
6550 004672 013737 001524 
6551 004700 012737 001702 
6552 004706 017737 174612 
6553 004714 104005 
6554 004716 42 
6555 004720 pee ges 
6556 004722 0045357 010156 
6557 004726 001702 
6558 004730 000001 
62 004732 104007 
6561 004734 000433 
65 004736 104010 
6563 004740 000431 
6564 004742 104011 
6565 004744 seat 
6366 004746 Bier 7 015316 
6567 004754 010037 001124 
6568 004760 013737 015316 





001120 


001126 
001126 


001122 


001110 


174660 
174654 


174644 

174636 
001122 
001124 
001126 


001120 
001126 
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BR 4$ 760, RESTORE VECTOR 
ERROR 10 HERE IF as ER = EXPECTED 0 
BR 4$ £60 TUE STORE VECT 
ERROR 11 SRETURN HERE IF BAR ER = SHOULD = DBUF+2 
BR % 760 RESTORE VECTOR 
MOV MDBUF ,SGDADR § :RETURN HERE IF OK = SET UP XFER ADRS 
MOV T [LD EXPECTED 
MOV QDRVDBR, $BDDAT READ DATA XFERED 
CMP SGDDAT,$BDDAT CORRECT? 
BEQ 3$ R IF 
MOV DRVDBR,SBDADR SET UP DBR ADRS 
ERROR 12 [DATA ER = DBR CONTAINS WRONG DATA 
BR 4$ 360 RESTORE VECTO 
3$: COM RO TRETURN HERE ON ob0p DATA = NOW COM PATRN 
COM R1 TKEEP TRACK OF COMPLEMENT 
BNE 1$ 300 COMPLEMENT OF THIS FLOATING ZERO IF 0 
ASL RO WAS DONE = NOW SHIFT ZERO LEFT 
INC RO KEEP LSB SET 
BCS 1$ SAGAING TILL ZERO BIT IN CARRY 
4$: JSR PC, ,RSTVEC ?GO RESTORE VECTOR 
FRRARARARAARAERERERAREREREEEREAEAERAREEAAAAAREEAEREEAEREREEERERES 
tSTEST 20 TEST SINGLE "DATO" NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
he > segagr: 0 0~: tal ental: eagle ta i ata ett 
+8120: SCOPE 
MOV #1$,SLPERR :SET UP SCOPE LOOP ADRS 
sr R5,SETVEC 760 SET UP INTERRUPT RETURN 
$ [RETURN TO 2$ ON INTR 
MOV #-2,R0 [FLOAT ZERO RIGHT TO LEFT 
CLR R1 RI CONTROLS DATA SHIFTING 
1$: MOV #~1,aDRVWCR [DO ONE XFER f 
MOV #DBUF ,ADRVBAR :WRITE DATA WORD TO 'DBUF 
MOV RO, aDRVDBR SET up DAT R 
MOV #103,aDRVCSR  :SET GO Ae PNCTA (C1 CONTROL) 
BIS #400.aDRVCSR SET Fee 
MIPS) so# TENABLE THE INTR 
MOV DRVCSR,$BDADR ;SET UP CSR ADRS 
MOV #1702,$GDDAT  :LD EXPECTED 
MOV @DRVCSR, $BDDAT 3READ THE CSR 
ERROR 5 WCO FAILED TO INTERRUPT (CHECK FOR WCO) 
BR 4s 60 RESTOR E VEC 
2$: CMP (SP)+, (SP)+ SINT R RETURNS HERE = FIX STACK SINCE NO RTI 
JSR R5,CKSTAT *GO CHECK STATU 
1702 :CSR- STATUS EXPECTED 
ERROR 7 SRETURN HERE IF STATUS ER = EXPECTED STAT C, 
CYCLE Y, IE & FNCT 1 
BR 4$ 60 RESTORE vECTOR 
ERROR 10 SRETURN HERE IF wc ER = EXPECTED 0 
BR 4$ 60 RESTORE VECTO 
ERROR 11 SRETURN HERE IF ‘BAR ER = SHOULD = DBUF+2 
BR 4$ 60 RESTORE VECT 
MOV #DBUF SGDADR RETURN HERE IF Ok = SET UP XFER ADRS 
MOV RO, $GODAT “LD EXPEC 
MOV DBUF ,SBDDAT GET DATA XFERED 


SEQ 0028 
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it CNDRAA.P11 14=DEC=82 1 TEST SINGLE ‘DATO’ NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) SEQ 0029 
6569 004766 023737 001124 001126 CMP SGDDAT,SBDDAT ;CORRECT? 
/ 6570 004774 001405 BEQ $ :BR IF SO 
| 6571 004776 013737 001526 001122 MOV DRVDBR,SBDADR SET UP DBR ADRS 
| 6572 005 104013 ERROR 13 [DATA ER = MEM CONTAINS WRONG DATA 
6573 005 900406 BR 43 ?GO RESTORE VECTOR 
| 6874 005010 0051 38: COM RO SRETURN HERE ON GOOD DATA = NOW COM PATRN 
6575 005012 005101 COM R1 :KEEP TRACK OF COMPLEMENT 
| 6576 005014 001306 BNE 1$ D0 COMPLEMENT OF THIS FLOATING ZERO IF 0 
| 6577 005016 006300 ASL RO ; COMPLEMENT WAS DONE = NOW SHIFT ZERO LEFT 
6578 005020 005200 INC RO KEEP LSB SET 
6579 005022 103703 BCS 1$ cAGAING TILL ZERO BIT IN CARRY 
6580 005024 004737 010132 4$: JSR PC,RSTVEC :GO RESTORE VECTOR 
6582 FERAAAARAAAAAS RARER ARETEEAEEAAAAAEAEAARAAAEREREEAREREEREREEREERE 
(3) zSTEST 21 TEST 200 "DATI'' NPR TRANSFERS (BURST MODE) 
(3) FRRAAARAAAARAERARAERERE EERE EAAREERA RARER AERERERARAAEEEREEREREE 
(2) 005030 000004 $121: SCOPE 
(1) 005032 012737 000010 001160 MOV #10,STIMES ::D0 10 ITERATIONS 
6583 005040 004537 010112 JSR RS, SETVEC 360 SET up INTERRUPT RETURN 
6584 005044 005142 1$ [RETURN TO 1$ ON INT 
6585 00504 004737 010336 JSR PC ,LOBUF GO LOAD Curren WITH et ae PATRN 
6586 005052 012777 177470 174440 MOV #-500.,aDRVWCR LOAD WC KEG = WILL DO 200 XFERS 
6587 005060 012777 015316 174434 MOV #DBUFaDRVBAR :SET UP CURRENT ADRS 
6588 005 log4e7 000000 MTPS = #0 TENABLE THE INTR 
6589 005072 012777 000101 174424 MOV #101, aDRVCSR 3SET IE & GO 
6590 005100 052777 000400 174416 BIS #400,aDRVCSR  :SET CYCLE 
6591 005106 0137 7 001524. 001122 MOV DRVCSR,SBDADR :SET UP CSR ADRS 
6592 005114 012737 000700 0011204 MOV #700, $GDDAT [LD EXPECTED 
6593 005122 017737 174376 001126 MOV @DRVCSR, $BDDAT READ THE CSR 
6594 005130 042777 000100 174366 BIC W100,aDRVCSR = :CLR_INTR_ENABLE 
6595 005136 104005 ERROR 5 WCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS) 
6596 005140 000434 BR 2$ [GO RESTORE VECTOR 
6597 005142 022626 1$: CMP (SP)+,(SP)+ SINTR RETURNS HERE - FIX STACK SINCE NO RTI 
6598 005144 004537 010156 JSR R5,CKSTAT 'GO CHECK STATUS 
6599 005150 000700 700 :CSR STATUS EXPECTED 
6600 005152 000310 200. :# OF X 
6601 005154 104007 ERROR 7 RETURN HERE | IF STATUS ER = EXPECTED CYCLE, READY & IE 
6602 005156 000425 BR 2$ ?GO RESTORE VECTOR 
6603 005160 104010 ERROR 10 SRETURN HERE IF WC ER = EXPECTED 0 
6604 005162 000423 BR 2$ 360 RESTORE VECTOR 
6605 005164 104011 ERROR 11 HERE IF BAR ER = SHOULD = DBUF +620 
6606 005166 9004e1 BR 2$ £60 RESTORE VECTOR 
6607 005170 012737 016134 001120 MOV #DBUF +616, SGDADR 20K = SET UP LAST XFER ADRS WHERE #70707 SHOULD BE 
6608 005176 012737 070707 001124 MOV #70707,$GODAT  ;LD EXPECTED 
6609 005204 017737 174316 001126 MOV aDRVDBR SBDDAT ;DBR SHOULD HAVE LAST DATUM 
6610 005212 023737 001124 001126 CMP SGDDAT,$BDDAT :CORRECT? 
6611 005220 001404 BEQ sBR IF SO 
6612 005222 013737 001526 001122 MOV DRVDBR,SBDADR SET UP DBR ADRS 
6613 005230 104012 ERROR 12 [DATA ER = DBR DID NOT CONTAIN EXPECTED LAST XFER 
6614 005232 004737 010132 2s: JSR PC ,RSTVEC :GO RESTORE VECTOR 
6616 FAAAAAAAHRAARAAAAAKAAAAATAAAAAATAAAKAARAReReKeAKeeeKeKeeteReaeene 
(3) tSTEST 22 TEST 200 ‘DATO’ NPR TRANSFERS (BURST MODE) 
(3) RESASSASAAATAAARAARAEEATAKAKEKERAEAARARARARAAARERERAARAAEKAREREEE 
(2) 005236 000004 18122: SCOPE 


pose ~ — 
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beeeamtee Pil 14=DEC-82 11:43 T22 t 200" ‘SATO NPR TRANSFERS (BURST MODE) SEQ 0030 
(2) 
(1) 005240 012737 pons 001160 MOV #10,STIMES DO 10 ITERATIONS 

6617 005246 004537 01011 JSR RS, SETVEC ‘G0 O SET UP INTERRUPT RETURN 
6618 005252 005352 1$ ZRETURN TO 1$ ON INTR 
6619 005254 012777 177470 174236 MOV #-200.,aDRVWCR ;WORD WC REG - oMtkh DO 200 XFER'S 
6620 005262 012777 015316 174232 MOV aires @DRVBAR ;SET UP CURRENT ADRS 
6621 005270 012777 177377 174230 MOV #177377, @DRVOBR :THIS WILL BE WRITTEN TO MEM 
6622 005276 106427 000000 MTPS 3 LE THE INTR 
66235 005302 012777 000103 ashe MOV #103, @DRVCSR sSET IE, FNCT 1 & GO 
6624 005310 052777 000400 174206 BIS #400, aDRVCSR 7S Y 
66 005316 013737 001524 001122 MOV DRVCSR,SBDADR ;SET UP CSR ADRS 
6626 005324 012737 001702 001124 MOV #1702 ,$GDDAT LD EXPECTED 
6627 005332 017737 174166 001126 MOV @DRVCSR,SBDDAT ;READ de. CSR 
6628 005340 042777 000100 174156 BIC #100, aDRVCSR 3CLR INTR ENABLE 
6629 005346 104005 ERROR 5 WCO FAILED TO —- (SNGL CYCL ON COULD CAUSE THIS) 
6630 005350 000416 BR 2s 3GO_ RESTORE V 
6631 005352 022626 1$: CMP (SP) +, (SP)+ zINTR See eek HERE - FIX STACK SINCE NO RTI 
6632 005354 004537 010156 JSR R5,CKSTAT 7G0 CHECK STATUS 

005360 001702 1702 CSR STATUS EXPECTED 

005362 000310 

005364 

5 


07 BR RE VECTOR 
6638 005370 104010 ERROR 10 RETURN HERE IF WC ER = EXPECTED 0 

6639 005372 000405 BR 2$ GO RESTORE VE 

6640 005374 104011 ERROR 11 ;RETURN HERE IF _ ER = SHOULD = DBUF +620 

6641 005376 000403 BR 2$ 7GO RESTORE VECTOR 

O646 005400 004737 010460 JSR PC,CKDAT ;RETURN HERE IF ~ = NOW GO CHECK DATA 

66435 005404 104013 ERROR 13 RETURN HERE IF DATA ER = DBR CONTAINS WRONG D 

6644 005406 004737 010132 2s: JSR PC ,RSTVEC RETURN HERE IF DATA CHECK OK = GO RESTORE VECTOR 


6646 Seite itiiiiiriiiy 
TEST 23 TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF 
Tete t iii iit titi liritititisiicitititiiiciiiiilicitttiii iit, 


005412 000004 1$123: SCOPE 


7 0 MOV #10, STIMES 3300 be stoma ios 
7 4 2 MOV DRVCSR,SBDADR ;SET UP CSR ADRS 
5 2 JSR RS ,SETVEC 360 at UP INTR RETURN 
544 3$ sRETURN TO _3$ ON INTR 
00 0000 MOV #10,R0 300 EIGHT 200 WORD XFER’S 
037 001126 CLR SBDDAT ;USR_SBDDAT AS A COUNTER 
7 174044 1$: MOV #-200. ,aDRVWCR :D0 200 XFERS (DATI‘S) 
12777 015316 174040 MOV #DBUF ,@DRVBAR ;FROM DBUF 
0000 ' #0 
1 


3A 
4030 MOV #101 ,aDRVCSR sSET & GO 
4022 BIS #400, aDRVCSR sSET CYCLE 
000240 NOP 2 FREEBEE 


0002 
005237 001126 2$: INC $BDDAT sSTART COUNTING = SHOULD NEVER GET HERE 
001375 $ TIL 64K 


012737 000700 001124 MOV #700, $GDDAT SLD EXPECTED 

017737 173774 001126 MOV @DRVCSR, SBDDAT sREAD STATUS 

042777 000100 173764 BIC #100, aDRVCSR LR IE 

104005 ERROR 5 NO INTERRUPT ON 200 DATI'S 


g 


Swn-— 


| 
| 
' 
6633 
6634 200. # OF XFERS 
6635 104007 ERROR 7 SRETURN pp IF STATUS ER = EXPECTED STAT C, 
6636 3CY etre -¥ IE & FNCT 1 
6637 005366 2$ G0 RESTO 
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‘CNDRAA.P11—s- 14=DEC=82 11:43 123 TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE GFF SEQ 0031 
6666 005542 07 BR 4$ :G0 RESTORE VECTOR 
6667 005544 022626 3$: CMP (SP)+, (SP)+ FIX STACK SINCE NO RTI 
| 6668 005546 005300 DEC RO [DONE 8 TIMES? 
6669 005550 001336 BNE 1$ :BR IF NOT 
6670 005552 005737 001126 TST SBDDAT i SHOULD STILL BE ZERO 
6671 005556 001401 BEQ 4$ FS 
6672 005560 104014 ERROR 14 {BURST MD (SINGLE CYCLE=0) FAILS TO LOCK OUT CPU 
6675 005562 004737 010132 4$: JSR PC,RSTVEC 'GO RESTORE VECTOR 
j 6675 FRAAAAAAAAEAEAEAEAAEATEREE AEA TEAAAAAEEERAEAAAEAEAAAREREEAAEEEEEEE 
| ¢3) TEST 24 TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON 
| (3) FERRARA RAAAAEAEERAERAE ATER AERAAAEEAAAAEEAAAEREREREAEEEERREREE 
(2) 005566 000004 18124: SCOPE 
| (1) 005570 012737 000010 001160 MOV #10, STIMES 3400 10 ITERATIONS 
| 6676 005576 013737 001524 001122 MOV DRVCSR,SBDADR :SET UP CSR ADRS 
| 6677 005604 004537 010112 JSR R5,SETVEC :GO SET UP INTR RETURN 
6678 005610 005716 3g ‘RETURN TO 3$ ON I 
79 005612 012700 000010 MOV RO [D0 EIGHT 200 WORD XFER'S 
005616 012737 000000 001126 MOV #0, $BDDAT ZUSE_S$BDDAT AS A COUN 
6681 005624 012777 177470 173666 1$: MOV #-200. ,aDRVWCR :D0 200 XFERS (DATI'S) 
005632 012777 015316 173662 MOV ADBUF ,@DRVBAR =; FROM | DBUF 
6683 005640 106427 000000 MTPS = #*O AN INT 
005644 012777 000111 173652 MOV #111, aDRVCSR Ser "IE; FNCTS & Go 
6685 005652 052777 00 173644 BIS #400,aDRVCSR SET CYCLE 
005660 000240 NOP *FREEBEE 
6687 005662 005237 001126 2$: INC SBDDAT i START COUNTING 
005666 001375 BNE 2$ UNTIL 64K = SHOULD INTR BEFORE OVERFLOW 
6689 005670 012737 004710 001124 MOV #4710, $GDDAT ‘UD EPEC ED 
90 005676 017737 178609 001126 MOV QDRVCSR,$BDDAT :READ STATUS 
6691 005704 042777 000100 173612 BIC #100,aDRVCSR  :CLR IE 
6692 005712 104005 ERROR 5 ZNO INTERRUPT ON 200 DATI'S (WITH SINGLE CYCLE) 
6693 005714 000423 S$ 60 RESTORE VECT 
94 005716 022626 3$: CMP (SP) +, (SP)+ SFIX STACK SINCE NO RTI 
6695 005720~ 005300 DEC RO : DONE a TINS? 
66% 005722 001340 . BN 1$ ‘BR IF NO 
6697 005724 022737 000000 001126 CM #0, $BDDAT :SeDDAT SHOULD HAVE BEEN COUNTED 
6698 005732 103401 BCS 4$ 
6699 005734 104015 ERROR 15 ‘ePu APPEARED LOCKED OUT WITH SINGLE CYCLE SET 
6700 005736 017737 173562 001126 4$: MOV aDRVCSR. SBDDAT [READ STATUS 
6701 005744 012737 004710 001124 MOV #4710,$ LD EXPECTED 
6702 005752 023737 001124 001126 CMP SGDDAT, SSBDDAT : CORRECT? 
6703 005760 001401 BEQ 5$ [BR IF SO 
6704 005762 104007 ERROR 7 SSTATUS INCORRECT ON XFER WITH SINGLE CYCLE SET 
6705 005764 004737 010132 5$: JSR PC RSTVEC [GO RESTORE VECTOR 
6707 FRE AAAAAAEAAEE AAA AAAAEEAAA AA AAAAAARARAAAEEAAAAAAEREEEAEEARERAREEE 
(3) tS TEST 25 TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE 
(3) het apn tc raters haircare cnn ee 
(2) 005770 000004 18125: SCOPE 
(1) 005772 012737 000200 001160 MOV #200, $TIMES 7200 200 ITERATIONS 
6708 004537 010112 JSR RS, SETVEC 360 SET UP INTR RETURN 
6709 0 006122 2$ sRETURN TO 2$ ON INTR 
6710 006006 004737 010410 JSR LOBUF 7GO SET UP DBUF (SPECIAL COM PATTERN) 
| 6711 006012 012737 011702 006130 mov wi 02,38 33$ CONTAINS EXPECTED STATUS 
| 
i 
| 


‘MAINDEC=11=CNDRA=A DRYIIB, OMA INTERFACE DIAGNOSTIC MACY11 3018463 14=DEC-82 11:44 PAGE 61-22 
CNDRAA.P11 —- 14=DEC-82 11:43 T25 TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE SEQ 0032 
6712 006020 012737 000001 006132 MOV #1,4$ 34$ CONTAINS THE CURRENT XFER NO # (MAX 8) 
671 006026 106427 000000 1$: MTPS 4 SAL OW INTR 
6714 006032 012777 015316 173462 MOV #DBUF ,ADRVBAR :SET up CURRENT ADRS 
6715 006040 013777 0061 52 1734 MOV 4$,aDRVWCR 36 
6716 006046 005477 173446 NEG aDRVWCR CREGATE F 
6717 006052 012777 010101 173444 MOV #10101 apaycsr SSET UP PAINT, IE & Go 
6718 006060 052777 000400 173436 BIS #400,aDRVCSR  :SET 
6719 006 013737 001524 001122 MOV DRVCSR. SBDADR SET Up CSR ADRS 
6720 006074 013737 006130 001124 MOV 3$, SGDDAT [LD EXPECTED 
6721 006102 017737 173416 001126 MOV aDRVCSR, SBDDAT *READ STATUS 
6722 006110 042777 000100 173406 BIC #100,aDRVCSR :DISABLE IE 
6723 006116 104005 ERROR 5 :NO INTR ON XFER (IN MAINT MD) 
6724 006120 000440 BR 6$ 360 RESTORE VECTOR 
6725 006122 pegs 2$: CMP (SP)+,(SP)+ sRETURN HERE A. INTR = FIX STACK SINCE NO RTI 
6726 006124 004537 010156 JSR R5,CKSTAT :GO CHECK STATUS 
6727 006130 011702 3$: 11702 STHIS LOCATION WILL CONTAIN EXPECTED STATUS 
6728 006132 000001 4$: 1 3THIS LOCATION WILL CONTAIN CURRENT XFER # (MAX 8) 
6729 006134 104007 ERROR 7 RETURN HERE IF STATUS ER = WILL EXPECT 
6730 MAINT, COUNT INCREASE OF FNCT é STAT BITS, 
6731 ICVCLE, READY & IE 
6732 006136 000431 BR 4§ :GO RESTORE VEC CTOR 
6733 006140 104010 ERROR 10 sRETURN HERE IF WC ER = SHOULD BE 0 
6734 006142 000427 BR 6$ [GO RESTORE VECT 
6735 006144 104011 ERROR 11 RETURN N HERE IF BAR ER- 
6736 006146 000425 BR 6$ :GO RESTORE V 
6737 006150 062737 001002 006130 ADD #1002 <a ;RETURN HERE. ae OK = ADVANCE EXPECTED STATUS LOC 
6738 006156 032737 020000 006130 BIT #B1T13,3 ‘LOOK FOR OVERFLOW 
6739 006164 901405 BEQ 
6740 006166 012737 010700 006130 MOV #10700, 3$ ENCT & STAT BITS SHOULD BE ZERO THIS TIME 
6741 006174 005237 006132 5$: INC 4$ SADVANCE CURRENT XFER 
6742 006200 022737 000011 006132 CMP #11,4$ SHAVE 10 XFERS BEEN DONE 
6743 006206 001307 BNE 1$ *BR IF NOT 
6744 006210 004537 010526 JSR RS,CKDAT1 ry GO CHECK DATA 
6745 006214 000010 10 # OF XFER'S TO CHECK 
6746 0062 104013 ERROR 13 RETURN HERE IF re ER = (WITH MAINT SET) 
6747 006220 000240 NOP SRESTORE VECTOR NEXT 
6748 006222 004737 010132 6$: JSR PC .RSTVEC [GO RESTORE VECTOR 
6750 FRE AAEERAEEAEEAEEEREEEHEEEEEEEEAEAAAAERAEAAAEAAAEERERAEEEERERERE 
(3) tS TEST 26 TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ‘NEX' 
(3) eee, Seem hin etre ieee rae eee tee ee ee 
(2) 006226 000004 ié12 SCOPE 
(1) 006230 012737 000100 001160 MOV #100, STIMES i200 100 ITERATIONS 
6751 006236 012700 00000 MOV #2,R RO WHEN ZERO SAYS CLR 'NEX® WITH RESET 
6752 006242 004537 01011 1$: JSR RS. SETVEC :GO SET UP INTERRUPT RETURN 
6753 006246 006340 2$ RETURN To 2$ ON TIMEOUT INTR 
6754 006250 012777 177777 173242 MOV #-1,aD [SET UP FOR ONE XFER'S 
6755 006256 012777 160000 173236 MOV 7160000-8 SORVBAR 3SET UP CA TO 160000 (RESERVED) 
6756 006264 106427 000000 MTPS) = #0 “ALLOW INTR 
6757 006270 012777 000161 173226 MOV #161 -@DRUESR [SET IE, XAD 17,16 & GO 
6758 006276 036777 000400 173220 BIS #400,aDRVCSR  :SET CYCL 
6759 006 013737 001524 001122 MOV oRvesn. $BDADR :SET UP CSR ADRS = SHOULD NEVER GET HERE 
6760 006312 012737 140760 001124 MOV #140760,$GDDAT LD EXPECT 
6761 006320 017737 173200 001126 MOV @DRVCSR,SBDDAT ;GIVE THEM THE STATUS 
6762 006326 042777 000100 173170 BIC #100, aDRVCSR :CLR IE 


H 3 
MAINDEC=11=CNDRA=A DRY IB DMA INTERFACE DIAGNOSTIC 1 30¢ 1046) 14=DEC+82 11:44 PAGE 61-23 
CNDRAA.P11 - 14=DEC=82 11:43 726 TEST THAT A C OaTie ROM A NON-EXISTANT BUS ADRS SETS ‘NEX® SEQ 0033 
6763 006334 104016 ERROR 16 sNEX FAILED TO CAUSE AN INTERRUPT 
6764 006336 000521 BR 7$ 'GO RESTORE VECTOR 
6765 006340 022626 23: CMP (SP)+, (SP)+ : SHOULD INTR VRETURN HERE = FIX STACK 
6766 006342 0177387 173156 001126 MOV aDRVCSR, SBDDAT iREAD THE CSR 
6767 006350 012737 140760 001124 MOV #140760, $GDDAT D EXPECTED 
6768 006356 023737 001124 001126 CMP  —- $GDDAT , SBDDAT SCORRECT? 
6769 006364 0017405 BEQ 
| 6770 006366 013737 001524 001122 MOV DRVCSR.SBDADR SET uP 'e ADRS 
6771 006374 104016 ERROR 16 STATUS . - EXPECTED 
| 6772 TER, NEX, CYCLE, READY, IE, XAD17 & XAD16 
| 6773 006376 000501 BR 7$ 360 RESTORE VECTOR 
| 6774 006400 017737 173114 001126 3$: MOV @DRVWCR,SBDDAT ;READ WORD COUNT 
| 6775 006406 012737 177777 001124 MOV #-1,$GDDAT + SHOULD STILL HAVE ~1 
| 6776 006414 023737 001124 001126 CMP SGDDAT.$BODAT CORRECT? 
| 6777 006422 001405 BEQ 7BR IF SO 
6778 006424 013737 001520 001122 MOV DRVWCR,SBDADR SET UP WCR ADRS 
6779 006432 104010 ERROR 10 swc INCREMENTED ON A TIMEOUT ER 
6780 006434 000462 BR f§ 3GO RESTORE VECTOR 
6781 006436 017737 173060 001126 4$: MOV @DRVBAR,SBDDAT ;READ BUFFER ADRS 
6782 006444 012737 160000 001124 MOV #160000,$GDDAT ;SHOULD NOT HAVE INCREMENTED 
6783 006452 023737 001124 001126 CMP SGDDAT,$BDDAT  :CORRECT? 
6784 006460 001405 BEQ 5$ <BR 
6785 006462 013737 001522 001122 MOV DRVBAR,SBDADR :SE 
6786 006470 104011 ERROR 11 :BAR INCREMENTED ON A TIMEOUT ER 
6787 006472 000443 BR 7$ :GO RESTORE VECT 
6788 006474 005300 5$: DEC RO sKEEP TRACK ON HOW TO CLR 
6789 006476 001422 BEQ 6$ sBR IF CLR BY RESET 
6790 006500. 04 777 040000 173016 BIC #40000, aDRVCSR 3WRITE NEX TO ZERO 
6791 006506 017737 173012 001126 MOV @DRVCSR, $BDDAT CSR 
6792 006514 012737 000760 001124 MOV #760, $GDDAT *LD EXPECTED 
6793 006522 023737 001124 001126 CMP $GDDAT, SBDDAT s CORRECT? 
6794 006530 001644 BEQ 1$ [BR IF SO + REPEAT TEST FOR RESET TEST 
6795 006532 013737 001524 001122 MOV DRVCSR,$BDADR SET YP cs 
6796 006540 104016 ERROR 16 :"NEX® FAILED TO ouRITE TO ZERO 
6797 006542 000417 7$ 7GO RESTORE VECTOR 
6798 006544 000005 6$: RESET + ISSUE Bus RESET 
6799 006546 017737 172752 001126 MOV @DRVCSR,SBDDAT :READ THE CSR 
6800 006554 012737 000200 001124 MOV #200, $GDDAT SEXPECT ONLY READY 
6801 006562 023737 001124 001126 CMP SGDDAT, SBDDAT 3 CORR ECT? 
6802 006570 001404 BEQ 7. R IF $0 
6803 006572 013737 001524 001122 MOV DRVCSR,SBDADR :SET UP CSR ADRS 
6804 006600 104016 ERROR 16 SRESET FAILED TO CLR °NEX* 
6805 006602 004737 010132 7$: JSR PC ,RSTVEC [GO RESTORE VECTOR 
6806 jeeeeeeeeeeeeeeeteeeeedeeereeenreneteneeeeeeenenereeeeerenteete 
(3) S*TEST 27 TEST 200 NPR TRANSFERS IN MAINT MODE 
(3) RASS AAEAAAAAEARAAREAESAASEKAAAAARAAAARARARARAAAAAAERAREAEEARAEAAE 
(2) 006606 000004 18127: SCOPE 
(1) 006610 012737 000010 001160 MOV #10, STIMES 3:00 10 ITERATION 
6807 006616 004537 010112 JSR RS, SETVEC 760 SET UP INTR RETURN 
6808 006622 006734 23 SRETURN TO 2$ ON INTR 
6809 006624 004737 010410 JSR PC,LDBUF1 [GO SET UP DBUF (SPECIAL COM PATTERN) 
6810 0066 012777 015316 172664 MOV aD LF SDRVBAR sSET UP cuRREN ADR 
6811 006636 012777 177470 172654 MOV a 00: aDRVWCR :SET UP FOR 200 XFER'S 
6812 006644 106427 000000 MTPS SALLOW INTR 
6813 006650 012777 010101 172646 MOV #10101 ,aDRVCSR [SET MAINT, IE & GO 
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‘CNDRAA.P11 = 14=DEC=82 1 T 200 NPR TRANSFERS IN MAINT MO SEQ 0034 
6816 006656 see 000400 172640 BIS #400,aDRVCSR  ;SET CYCLE 
6815 006664 gi 737 000000 001126 MOV #0,$BDDAT 3SET up A COUNTER 
6816 006672 005237 001126 1$: INC SBDDAT 
| 6817 006676 $03 75 BNE 1$ OAT. TILL DONE = SHOULD INTR BEFORE OVFLO 
| 6818 006700 013737 001524 001122 MOV DRVCSR, SBDADR [SET UP CSR ADRS 
6819 006706 012737 010700 001124 MOV #10700,$GDDAT LD EXPECTED. 
6820 006714 017737 172604 001126 MOV @DRVCSR,SBDDAT :READ STATUS 
6821 006722 042777 000100 172574 BIC #100,aDRVCSR :DISABLE IE 
6822 006730 104005 ERROR 5 [NO INTR AFTER 200 MAINT MODE XFER'S 
6823 006732 000420 BR 3$ 7GO RESTORE VECT 
6824 006734 022626 28: CMP (SP)+, (SP)+ SRETURN HERE ON ONTR = FIX STACK SINCE NO RTI 
6825 006736 004537 010156 JSR R5,CKSTAT ?GO CHECK STATUS 
6826 006742 610700 10700 EXPECTED STATUS 
6827 006744 000310 : # OF XFERS 
6828 006746 104007 ERROR 7 eRETURN HERE IF STATUS ER = EXPECTED MAINT, 
6829 = CYCLE READY 
6830 006750 000411 BR 3$ [GO RESTORE VECTOR 
6831 006752 104010 ERROR 10 [RETURN HERE IF WC ER = SHOULD BE 0 
6832 006754 000407 BR 3$ 360 RESTORE VECTOR 
6833 006756 104011 ERROR 11 “RETURN HERE IF BAR ER = SHOULD = DBUF +620 
6F7%4 006760 000405 BR 3$ *GO RESTORE VECT 
6535 006762 004537 010526 JSR R5,CKDAT1 ; RETURN HERE IF OK = NOW GO CHECK DATA 
6836 766 000310 200. # OF XFER'S TO CHECK 
6837 006770 104013 ERROR 13 CRETURN HERE IF DATA ER = (WITH MAINT SET) 
6838 006772 000240 NOP SRESTORE VECTOR NEXT 
6839 006774 004737 010132 38: JSR PC,RSTVEC *GO RESTORE VECTOR 
6840 33  eeReRReeeeeeeeeeeeeeeeeeeeeeerearteneaeeeeeaeeaeeaeeereeeeeree 
(3) Z*TEST 30 TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4k 
(3) FRAAAARAAAAAAAAEAEEEEEAAE ATE AAEAEAEAARAAAAARAAAEEEAEAAAEEARAEAAEEEEEEES 
(2) 007000 000004 7$130: SCOPE 
(1) 007002 012737 000005 001160 MOV #5, STIMES 2:00 5 ITERATIONS 
6841 007010 004537 010112 JSR RS. SETVEC 760 SET UP INTR RETURN 
6842 007014 007150 § :RETURN TO 3$ ON INT 
6843 007016 005037 001542 CLR DBUFP T LOWEST BUFFER ADRS 
6844 007022 062737 020000 001542 1$: ADD #20000, DBUFP <SBINT TO NEXT 4K 
6845 007030 023737 001540 001542 CMP CORSZ,DBUFP 1S THE 4k THERE? 
6846 007036 001465 BEQ 4 :BR IF NOT 
6847 007040 737 010410 JSR PC ,LDBUF1 760 SET UP SPECIAL COMPEMENT PATTERN 
6848 007044 013777 001542 172450 MOV DBUFP,@DRVBAR :SET UP BUF FER ADRS 
6849 007052 012777 177470 172440 MOV #-200.,aDRVWCR :SET UP FOR 200 XFER'S 
6850 007 106427 000000 MIPS = #0 ‘xTLOU. INTR 
6851 007 012777 010101 172432 MOV #10101,aDRVCSR :SET MAINT, IE & GO 
6852 007072 052777 000400 172424 BIS #400,aDRVCSR  :SET CYCLE 
6853 007100 012737 000000 001126 MOV #0, $BDDAT 3SET UP A COUNTER 
6854 007106 005237 001126 2s: INC SBODAT 
6855 007112 001375 BNE 2$ ‘SHOULD ALWAYS INTR FROM THIS LOOP 
6856 007114 013737 001524 001122 MOV DRVCSR,S$BDADR :SET UP CSR ADRA 
6857 007122 012737 010700 001124 MOV #10700, $GDDAT iL EXPECTED 
6858 130 017737 172370 001126 MOV QDRVCSR,SBDDAT :READ CSR 
6859 136 042777 000100 172360 BIC #100, aDRVCSR DISABLE IE 
6860 007144 104005 ERROR 5 [NO INTR AFTER 200 MAINT MODE XFER'S 
rere aes Sere 3$ orp (GPs (SP) ERETUR HERE vou IN INTR = FIX STACK SINCE NO RTI 
3 + ol = 
onee 007152 peeees 010156 JSR R5,C 7GO CHECK STATUS 
6864 007156 010700 10700 TEXPECTED STATUS 
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‘MAINDEC=11=CNDRA=A_DRV11 
CNDRAA.P11 = 16=DEC=82 11:43 T30 TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4k SEQ 0035 
6865 007160 000310 200. :# OF XFER'S 
| 6866 007162 104007 ERROR 7? SRETURN HERE IF STATUS ER = EXPECTED MAINT, 
| 6867 [CYCLE, READY 
| 6868 007164 000412 BR 4$ G0 RESTORE VECTOR 
| 6869 007166 104010 ERROR 10 SRETURN HERE IF wc ER = SHOULD = 0 
/ 870 007170 000410 BR 4$ 60 RESTORE VECTO 
| 6871 007172 104011 ERROR 11 SRETURN HERE IF BAR ER = SHOULD = DBUFP+620 
| 6872 007174 000406 BR 4$ 60 RESTORE VECTOR 
6873 007176 004537 010526 JSR R5,CKDAT1 RETURN HERE IF OK = NOW GO CK DATA 
| 6874 007202 000310 200. # OF XFER'S TO Ck 
6875 007204 104013 ERROR 13 [RETURN HERE IF DATA ER 
6876 007206 000401 BR 43 360 pRESTORE VECTOR 
6877 007210 000704 BR 1$ NEXT BANK 
6878 007212 012737 015316 001542 4$: MOV #DBUF ,DBUFP RESTORE BUFFER ADRS TO LOWEST 4k 
6879 007220 010132 JSR PC ,RSTVEC 'GO RESTORE VECTOR 
6880 PITITITITIIIIIITILI ILE TTI TITITITT TTT i titi i TLL LLL kth 
(3) TEST 31 TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 
(3) FEAAAAEAAAAAAAEAEAAAEEEEAAE AA TAEAEAERERAREREEEEREREREREEAREERERE 
(2) 007224 000004 +8131: SCOPE 
6881 007226 105777 171706 TSTB = @SWR sKDF 11-8? 
6882 007232 100507 BMI AL TERN SIF YES,GO TO THE NEXT SUBTEST 
6883 007234 004537 010112 101$: JSR RS, SETVEC [GO SET UP INTR RETURN 
6884 007240 00734 1$ [RETURN TO 1$ ON INTR 
6885 007242 012777 177777 172250 MOV #-1,aDRVWCR [SET UP WC = 1 XFER 
6886 007250 013737 001150 001542 MOV $TPS ,DBUFP SSET UP BUFFER ADRS TO PRINTER CSR ADRS 
6887 007256 013777 001150 172236 STPS ,a@DRVBAR sot UP BUFFER ADRS = FROM PRINTER CSR 
6888 007264 106427 0000 MIPS = #0 LLOW INTR 
6889 007270 005077 172232 CLR @DRVDBR i TERO THE DBR 
6890 007274 012777 000161 172222 MOV #161,aDRVCSR SET IE, XAD17 & XAD16, & GO 
6891 007302 052777 000400 172214 BIS #400,aDRVCSR  :SET CY CLE 
6892 007310 013737 001524 001122 MOV DRVCSR,SBDADR :SET UP CSR ADRS 
6893 007316 012737 000760 001124 MOV 760 LD EXPECTED STATUS 
007324 017737 172174 001126 MOV @DRVCSR,SBDDAT :READ THE CSR 
6895 007332 777 000100 172164 BIC #100,aDRVCSR  :DIS LE 1E 
007340 104005 ERROR 5 [NO INTR ON 1 wo oxFER FROM XCSR 
6897 007342 000434 BR 2s G60 RESTORE VECT 
6898 007344 022626 1$: CMP (SP)+, (SP)+ INT R RETURNS HERE - FIX STK SINCE NO RTI 
6899 007346 004537 010156 JSR R5,CKSTAT :G0 CK STATUS 
6900 007352 000760 760 :CSR EXPECTED STATUS 
6901 007354 000001 1 74 OF XFER'S 
6902 007356 104007 ERROR 7 “RETURN HERE IF STATUS ER = EXPECTED CYCLE, 
690 :XAD17 & XAD16, RDY & IE 
6904 007360 000425 BR 2s 60 RESTORE VECTOR 
6905 007362 104010 ERROR 10 TRETURN HERE IF WC ER - EXPECTED 0 
6906 007364 000423 BR 2$ 'GO RESTORE VECTOR 
6907 007366 104011 ERROR 11 SRETURN HERE IF BAR ER = SHOULD = XCSR+2 
6908 007370 9004e1 BR 2$ $GO RESTORE VECT 
007372 017737 (171552 001124 MOV QSTPS,SGDDAT = RETURN HERE IF Ok - GET XCSR CONTENTS 
6910 007400 017737 172122 001126 MOV @DRVDBR,SBDDAT :READ DBR 
6911 007406 023737 001124 001126 CMP SGDDAT , $BDDAT : CORRECT? 
6912 007414 001407 BEQ R IF SO 
6913 007416 013737 001526 001122 MOV DRVDBR, SBDADR ofr UP DBR ADRS 
6914 007424 013737 001150 001120 MOV STPS,SGDADR [GET ADRS OF DATA x KCSR) 
6915 0074 04020 ERROR 20 [DATA ER FROM TTY PRINTER C 


1 CSR 
6916 007434 012737 015316 001542 2$: MOV #DBUF ,DBUFP RESTORE BUFFER ADRS TO LOWEST 4k 
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\MAINDEC=11=CNDRA=A ory ITe DMA INTERFACE pigeons tt MACY11 30(1046) 14=DEC-82 11:44 PAGE 61-26 
| CNDRAA.P11 14=DEC=82 11:43 T31 TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 
| 6917 007442 004737 010132 JSR PC ,RSTVEC 3GO0 RESTORE VECTOR 
oats 007446 000137 007672 JMP NXDEV + IGNORE NEXT SUBTEST 
6920 SRRRAAERAAAEAAAERATEHEAEEHA TAHA AAEEAAEREAHRERAHEREAEREHRAREEEEE 
6921 ZN CASE OF KLF11-B TEST SOME SPECIFIED I/0 PAGE 
692 FRRAAAAAKAAAAAAAAAAAAAAAAREK THEA eee eeeeeeeeeeeeeeeeeeeeeteneeer 
6923 007452 005737 001544 ALTERN: TST IOPAGE 31/0 TRANSFER DESIRED? 
6924 007456 001505 BEQ NXDEV SIF NOT, SKIP THE TEST 
6925 007460 004537 010112 JSR R5,SETVEC 60 SET UP INTR RETURN 
6926 007464 007570 1$ SRETURN TO 1s ON INTR 
6927 007466 012777 177777 172024 MOV He) Pe ge SET UP W 1 XFER 
6928 007474 013737 001544 001542 MOV IOPAGE ,DBUF SET UP BUFFER ADRS TO I/0 CSR ADRS 
6929 007502 013777 001544 172012 MOV IOPAGE, OO RVBAR SET UP ak FER ADRS = FROM I/O CSR 
6930 007510 106427 000000 MTPS #0 TAL Ry 
6931 007514 005077 172006 CLR @DRVDBR :ZERO T HE DBR 
69 007520 012777 000161 171776 MOV #161, aDRVCSR :SET if XAD17 & XAD16, & GO 
6933 007526 052777 000400 171770 BIS #400, aDRVCSR 3S YCLE 
69 0075 013737 001524 001122 MOV DRVCSR,.SBDADR ;SET UP CSR ADRS 
6935 007542 012737 000760 001124 MOV #760 ,SGDDAT LD ge a 
6936 007550 017737 171750 001126 MOV aDRVCSR, SBDDAT ;READ THE CSR 
6937 007556 042777 000100 171740 BIC #100, aDRVCSR eis IE 
6938 007564 104005 ERROR 5 zNO INTR ON " XFER FROM XCSR 
6939 007566 000434 BR 2s 3G0 RESTORE V 
6940 007570 022626 1$: CMP (SP)+,(SP)+ sINTR RETURNS HERE - FIX STK SINCE NO RTI 
6941 007572 004537 010156 JSR RS,CKSTAT 760 CK STAT 
6942 007576 000760 760 +h Th STATUS 
6943 007600 000001 1 R'S 
6944 007602 104007 ERROR 7 RETURN. HERE IF STATUS ER = EXPECTED CYCLE, 
6945 :KAD17 & XAD16, RDY & IE 
6946 007604 000425 BR 2s G60 RESTORE VECTOR 
6947 007606 104010 ERROR 10 RETURN HERE IF WC ER = EXPECTED 0 
6948 007610 000423 BR 2$ 60 RESTORE VECT 
6949 007612 104011 ERROR 11 sRETURN HERE IF . ER = SHOULD = XCSR+2 
6950 007614 000421 BR 2s 60 RESTORE VECTOR 
6951 007616 017737 171722 001124 MOV @IOPAGE , SGDDAT :RETURN HERE IF OK = GET XCSR CONTENTS 
6952 007624 017737 171676 001126 MOV @DRVDBR,SBDDAT ;READ DBR 
6953 007632 023737 001124 001126 CMP SGDDAT, $BDDAT ; CORRECT? 
007640 001407 BEQ $ 3 
6955 7642 013737 001526 001122 MOV DRVDBR,SBDADR ;SET UP DBR ADRS 
9 007650 013737 001544 001120 MOV IOPAGE,$GDADR ;GET ADRS OF DATA (XCSR) 
695 7656 104020 ERROR 20 :DAT A ER FROM TTY PRINTER CSR 
6958 007660 012737 015316 001542 2$: MOV #DBUF ,OBUFP SRESTORE BUFFER ADRS TO LOWEST 4k 
6999 007666 004737 010132 JSR PC ,RSTVEC [GO RESTORE VECTOR 
6961 RERREEAEAEAAAAEAEEEEERERAEEEEAAEEEEAEAAEEEEAAEEEREAAAEKEEEEEEEE 
6 ?bON' T REPORT “END OF PASS* UNTIL ALL SELECTED DRV11°S HAVE BEEN TESTED 
696 SLURAAAeeeeeeeAeeeeeeeeeeeeeeeeeeereereneeeeeeneneeereneenererere 
6964 007672 000004 NXDEV: SCOPE 
6965 007674 000241 NXDEV1: CLC :CLR = 
6966 007676 006037 001536 ROR — ;LOOK FOR et 
6967 007702 00143. BEQ SEO ‘BR IF ALL TESTED 
6968 007704 062737 000010 001520 ADD aio ORVWCR [OFFSET BASE BUS ADRS TO NEXT DRV11B 
9 007712 062737 000010 Onl a¢¢ ADD #10; DRVBAR : 
6970 007720 062737 000010 001524 ADD #10, DRVCSR $ 
6971 007726 062737 000010 oot 3¢6 ADD #10, DRVDBR : 
6972 0077 062737 15 ADD #4, DRVCT sOFFSET VECTOR ADRS TO NEXT 


SEQ 0036 
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AINOECT1-CNDRACA DRVITB OMA INTERFACE DLAGNOSTIC Sl octal 14=DEC-82 11:44 PAGE 61-27 
CNDRAA.P11 =: 14=DEC=82 11:43 T31 TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR SEQ 0037 
| 6973 007742 062737 000004 001532 ADD #4 ,DRVCT2 F 
| 6974 007750 005237 001206 INC SUNIT [COUNT DEVICE 
| 6975 007754 032737 000001 001536 BIT #1,DMAP t1$ IT SELECTED? 
6976 007762 001744 BEQ NXDEV1 :BR IF NOT 
6977 007764 000137 002406 JMP RESTRT S TEST NEXT 
6978 .SBTTL END OF PASS ROUTINE 
(2) FRRAAAAAAAAAAAEAAEAEEEEREEERERERAEAAEEEAEEERERERAEREEEERAEREREEES 
(1) : SINCREMENT THE PASS NUMBER ($PASS) 
(1) S*TYPE "END PASS #XXXXX'’ (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) cur THERES A MONITOR GO TO IT 
(1) :*]F THERE ISN'T JUMP TO START 
(1) 007770 SEOP: 
(2) 007770 000240 NOP 
(1) 007772 005037 001102 CLR STSTNM i ZERO THE TEST NUMBER 
(1) 007776 005037 001160 CLR STIMES z37ER O THE NUMBER OF ITERATIONS 
(1) 010002 005237 001202 INC S$PASS S INCREMENT THE PASS NUMBER 
(1) 010006 042737 100000 001202 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 010014 005327 DEC (PC)+ : SLOOP? 
(1) 010016 000001 SEOPCT: .WORD 1 
(1) 010020 003022 BGT SDOAGN z7 YES 
(1) 010022 012737 MOV (PC)+,a(PC)*  $:RESTORE COUNTER 
(1) 010024 000001 SENDCT: .WORD 1 
(1) 010026 010016 $EOPCT ; 
(1) 010030 104401 010075 TYPE SENDMG 3s TYPE “END PASS a 
(2) 010034 013746 001202 MOV $PASS,-(SP) TSAVE SPASS FOR TYPEOUT 
(2) 010040 104405 TYPDS 360 TYBE~-DECIMAL ASCII WITH SIGN 
(1) 010042 104401 010072 TYPE  ,$ENULL S:TYPE A NULL CHARACTER 
(1) 010046 013700 000042 $GET42: MOV a#42,RO £:GET MONITOR ADDRESS 
(1) 010052 001405 BEQ $DOAGN +:BRANCH IF NO MONITOR 
(1) 010054 000005 RESET t:CLEAR THE WORLD 
(1) 010056 004710 SENDAD: JSR PC, (RO) 7:60 T 
(1) 010060 000240 NOP 32 SAV 
(1) 010062 000240 NOP 3: 
(1) 010064 000240 NOP SZACT11 
(1) 010066 SDOAGN: 
(1) 01 000137 JMP a(Pc)+ RETURN 
(1) 010070 002012 SRTNAD: .WORD START 
(1) 
(1) 010072 377 377 000 $ENULL: .BYTE 1,-1.0 s:NULL CHARACTER STRING 
(1) 010075 015 042412 042116 SENDMG. SASCIZ. <15><12>/END PASS #/ 
(1) 010102 050040 051501 020123 
(1) 010110 000043 
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CNDRAA.P11  - 14=DEC=82 11:43 ROGRAM SUBROUTINES SEQ 0038 
6980 .SBTTL PROGRAM SUBROUTINES 
eee 
6983 PROC RAAAALAAAACAAAAAAAAAAAAAAALALALALALAL ELECT TEETER RTE RTT aA SG 
6984 ‘THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 
6985 ?SETS UP THE DRV11B INTERRUPT TO RETURN ON INTERRUPT 
6986 [TO THE ADDRESS INDICATED ((R5S)) BY THE CALL +2 
6987 EEAAAAEAEAAAERAEAETERERAEEAEAEEAAAARAEAEAAAEEEAAAAAEEEAREEAREREEEEEEE 
6988 010112 106427 000200 SéTVEC: MTPS #200 :SET UP FOR. aNO INTERRUPT 
6989 010116 012577 171406 MOV (R5)+,aDRVCTO SET UP INTR RETURN ADRS 
6990 010122 012777 000200 171402 MOV #200,aDRVCT2  :kEEP PRIORITY LEVEL AT TOP ON INTR 
6991 010130 000205 RTS R5 TEXIT 
6993 RAAEAAAAEEAAIEAREAAEAEEEEAAEAERAAAAAARAAAEAEKRAEEEEEAEEEEEAAREEEERERE 
994 ‘THIS ROUTINE CLEARS THE DRV11B CSR = RESTORES THE DRV11B 
6995 ; INTERRUPT VECTOR TO A HALT = RAISES PRIORITY LEVEL 
6996 inet: Clk ORCA lA STATUS 8 CTA 
6997 010132 005077 171366 RSTVEC: CLR aDRV zCLR STATUS & CONTROL 
6998 010136 013777 001532 171364 MOV itt R oRVCTO :POINT VECTOR TO HALT 
6999 010144 005077 171362 CLR aDRVCT2 :SET UP HALT 
7000 010150 106427 000200 MTPS #200 SRAISE PRIORITY LEVEL 
4 010154 000207 RTS PC SEXIT 
7003 SRRAERAAERAEARRERREEEEEEEEEEEREEEEEEKAEREREEREEREEEEEREREREREREEEEE 
7004 ‘THIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR: CORRECT STATUS, 
7005 3C RRECT WORD COUNT & CORRECT BUFFER ADDRESS = THE wey DATA Is 
Fe ag lig IN THE CALL #2 & #4 = THE RETURN IS TO +22 IF NO ORS 
7007 sDET ECTED = IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT 
7008 FERRARA REEAEAEEEEERE COREE EEEAAARAERERERERERRERREREEERERREERE 
7009 010156 017737 171342 001126 tkSTAT: MOV @DRVCSR,SBDDAT ;READ = STATUS 
7010 010164 042777 000100 171332 BIC aT OOcaDaVESR ‘DISABLE THE IE BIT 
7011 010172 012537 001124 MOV (R5)+,$GDDAT  :SET UP EXPECTED STATUS 
7012 010176 023737 001124 001126 CMP SGDDAT,$BDDAT :CORRECT? 
7013 010204 001406 BEQ 1 “BR IF SC 
7014 010206 013737 001524 001122 MOV DRVCSR,SBDADR sSET UP CSR ADRS 
7015 010214 062705 000002 ADD #2,R5 POINT TO THE CSR ER 
7016 010220 000205 RTS RS SEXIT HERE ON STATUS ERROR 
7017 010222 017737 171272 001126 1S: MOV @DRVWCR,SBDDAT :GET WC 
7018 010230 001410 BEQ 2$ ‘BR IF ZERO 
7019 010232 013737 001520 001122 MOV DRVWCR,SBDADR :SET UP WCR ADRS 
7020 010240 005037 001124 CLR SGDDAT SEXPECTED 0 
7021 010244 062705 000006 ADD #6,R5 [POINT TO THE WCR ER 
7022 010250 000205 RTS R5 EXIT 1 " WCR ER 
7023 010252 011537 001124 2$: MOV (RS) ,SGDDAT [GET XFER 
7024 010256 006337 001124 ASL S$GDDAT CONVERT 10 WORD 
7025 010262 063737 001542 001124 ADD DBUFP,$SGDDAT :POINT TO LAST XFER +2 
7026 010270 017737 171226 001126 MOV @DRVBAR,SBDDAT :GET BA 
7027 010276 042737 000001 001126 BIC #B1T00,$BDDAT :DON'T WANT BITOO 
7028 010 023737 001124 001126 CMP SGDDAT.$BDDAT :CORRECT? 
7029 010312 001406 BEQ 3$ :BR IF SO 
7030 010314 01373 001845 001122 MOV DRVBAR , SBDADR 3SET UP BAR ADRS 
7031 010322 062705 00001 ADD #12,R5 :POINT TO BAR ER 
7032 010326 000205 RTS R5 3EXIT HERE ON BAR ER 
7033 010330 062705 000016 3$: ADD #16,R5 ALL OK RE OINT. TO GOOD EXIT 
7034 010334 000205 RTS RS SEXIT HERE IF NO ERRORS 
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6 CNDRAA.P11 14=DEC=82 11:43 PROGRAM SUBROUTINES 

70 OUST TITITITIT ITI IT TIT ii iii ii tiiiiiiiiiiiiiiiiitiiiiiiiiiiiy, 
7037 :THIS ROUTINE LOADS ‘DBUF* WITH A FLOATING ZERO/ONE yh 
7038 7FOR 199 LOCATIONS = THE LAST yt IS LOADED WITH THE 
7039 AT ane WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DBR 
7040 T THE COMPLETION OF A 200 WORD TRANSFER 


 sunguusenatansseeneuscupasnsastnecesesecssesbensangaensanennnen 


7041 
7042 010336 012703 015316 iBBUF : MOV #DBUF ,R3 GET BUFFER ADRS 


SEQ 0039 
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CNDRAA.P11- 14=DEC=82 11:43 AM SUBROUTINES SEQ 0040 
7044 010342 012704 177776 1$: MOV #177776 ,R4 :SET UP FLOATING ZERO PATRN 

7065 010346 010423 2$: MOV R4, (R3)4 [LOAD IT (FLOATING 0) 

7046 010350 005104 COM RG ZAK E INTO FLOATING 1 

7067 010352 022703 016134 CMP #DBUF +616,R3 T END OF BUFFER? 

7048 010356 901003 BNE 4$ 

7069 010 012713 070707 3S: MOV #70707, (R3) zBR I LAST DATVAR (SPECIAL) 

7050 010364 000207 RTS PC *GET OUT 

7051 010366 010423 4$: MOV RG, (R3)+ [LOAD IT (FLOATING 1) 

7052 010370 022703 016134 CMP #DBUF+616,R3. SAT END OF BUFFER? 

7053 010374 001771 BEQ 3$ :BR IF SO 

7054 010376 005104 COM RG *BACK TO FLOATING ZERO 

7055 010400 006304 ASL RG SHIFT bert 

7056 010402 905204 INC RG :KEEP LSB SET 

7057 010404 103356 Bcc 1$ SOD RESET FLOATING PATRN 

7058 010406 000757 BR 2$ :G0 LOAD NEXT PATRN 

7060 3 SRAATARAEAAAAAAAAAARAEAAAELEREAAEAARAARARAARARAAAARARAARAAAAAAEAAAEAEEEE 
7061 THIS ROUTINE LOADS "DBUF" WITH A UNIQUE FLOATING ZERO/ONE PATTERN 
7062 77776.0,1.06177775-0.240,177773.0.4.0 0,177767,0,1 C.) 

7063 aye IS USED WITH MAINT Ay If SET (DATIZDATO SEQUENCE) = 250° Locs 
7064 ;ARE POADED wiTH Tats P TERA 

7065 pasetens saeenantocestesenssseunnnoqoouccocesooseesensonsnseccnse 
7066 010410 013703 001542 ibBuFI: MOV DBUFP,R3 3GET BUFFER ADRS 

7067 010414 010305 MOV [SAVE IN RS 

7068 910416 062705 000620 ADD #620_,R5 [POINT TO END OF BUFFER 

7069 010422 012704 177776 1$: MOV #177776, R4 ise! uP FLOATING ZERO PATRN 

7070 010426 010423 2$: MOV RG, (R34 LOAD IT (FLOATING 0) 

7071 010430 005023 CLR (R3)+ NEXT 

7072 010432 0051 COM RG :ZER UP FLOATING 1 

7073 010434 010423 MOV RG, (R3)+ : IT 

7074 010436 005023 CLR r3)+ ZERO NEXT 

7075 010440 020503 CMP R5,R3 200 LOCS DONE? 

7076 010442 001001 BNE 3$ :BR IF NOT 

7077 010444 000207 RTS PC :GET OUT 

7078 010446 005104 | 3$: COM RG :BACK TO FLOATING ZERO 

7079 010450 006304 ASL RG SHIFT LEF FT 

7080 010452 005204 INC R4 :KEEP LSB SET 

7081 010454 10536¢ BCC 1$ 60 RESET FLOATING PATRN 

7082 010456 00076 BR 2$ :GO FLOAT NEXT PATRN 

7084 SRAAAAAAAAAAAAAAARAAEAAEAAAAAAAAARARAAARARAARARAAAAAARARAAAAAAERAAAERE 
7085 ‘THIS S ROUTINE CHECKS 200 LOCATIONS IN peur FOR GOOD TRANSFERED 
7086 :DATA (#177377) ON *DATO' TRANSFERS = IF AN ERROR IS DETECTED 
7087 THE RETURN IS To. CALL #2 = IF NO ERROR THE RETURN IS TO CALL +4 
7088 ide Oa at ante BA ae abet meee ame ee oe 
7089 010460 012701 015316 tkDAT: MOV #DBUF :GET BUFFER ADRS 

7090 010464 022721 177377 1$: CMP #1 Bee Rte *DATA OK? 

7091 010470 001410 BEQ <BR IF S$ 

709 010472 013737 001526 001122 MOV DRVDBR,SBDADR :SET UP DBR ADRS 

7093 010500 014137 001126 MOV =(R1),$BDDAT | :GET ACTUAL DATA XFERED 

7094 010504 010137 001120 MOV R1,$GOADR [GET MEMORY ADRS 

7095 910510 900207 RTS P RETURN N TO ERROR 

209% 01051 022 01 016136 2s: CMP #DBUF +620,R1 3AT END OF "DBUF*? 

7097 010516 001362 BNE F MORE 

7098 010520 062716 000002 ADD #2, (SP) TADJUST STACK FOR GOOD RETURN 
7099 010524 000207 RTS PC GET OUT 
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CNDRAA.P11 - 14=DEC=82 11:43 PROGRAM SUBROUTINES SEQ 0041 
| 7 
j 00 tHIS ROUTINE CHECK 200 LOCATIONS IN 'DBUF* FOR GOOD TRANSFERED 
£108 TTHIS R TINE CHECK 20 200 LOCATIONS IN 8, FOR D TRANSFERED 

a :DATA (177776, 17 1775 17 775 2 177773, 177773,€TC.) 

7104 MAINT MODE TRANSFE cfs = THE NUMBER OF CHECKS TagQutReD’ IS INDICATED 

7105 BY THE CALL #2 = N ER ROR 1S DETECTED THE RETURN IS TO CALL +4 = 

7106 F NO ERROR THE RETURN IS TO CALL +10 

7107 nN nore hn Ris A: i AW. Tob. See 

7108 010526 912500 linet MOV (RS) RO :GET # OF CHECKS 

7109 010530 013702 001542 MOV DBUEP [GET BUFFER ADRS 

7110 010534 012701 177776 1$: MOV eons R1 ise UP FLOATING ZERO PATRN 

7111 010540 005003 CLR RS SAYS WHEN TO SHIFT PATRN 

211e 010542 020122 2$: CMP R1,(R2)+ ;DATA Ok? 

7113 010544 001010 BNE F NOT 

7114 010546 020122 CMP R1,(R2)+ {DATA WRITTEN OK? 

7115 010550 001006 BNE [BR IF NOT 

7116 010552 162700 000002 SUB #2,R0 SACCOUNT FOR TWO ADRS'S 

7117 010556 003015 BGT 4$ [BR IF MORE 

7118 010560 062705 000004 ADD #4 ,R5 ZADJUST FOR GOOD RETURN 

7119 010564 000205 RTS 

7120 010 014237 38: MOV -(R2) ,SBDDAT GET BAD DATA 

7121 010572 010237 001120 MOV R2,$GDADR [GET MEM ADRS 

7122 010576 010137 001124 MOV R1.$GDDAT [LD EXPECTED DATA 

7123 010602 013737 001526 001122 MOV DRVDBR,SBDADR ;SET UP DBR ADRS 

7124 010610 000205 RTS RS *RETURN TO ERROR 

7125 010612 005101 4$: COM R1 [NOW EXPECT COMPLEMENT 

7126 010614 005103 COM R3 [TIME TO SHIFT? 

7127 010616 001 531 BNE 2$ ‘BR 

7128 010620 006301 ASL R1 *SHIFT LEFT 

7129 010622 005201 INC R1 [KEEP LSB S$ 

7130 010624 103343 BCC 1$ [GO RESET FLOATING PATRN 

7131 010626 000745 R 2$ [D0 NEXT 
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| CNDRAA.P11 14=DEC-82 11:43 YSMAC ROUTINES SEQ 0042 
| ne ~SBTTL SYSMAC ROUTINES 
at -SBTTL TYPE ROUTINE 
(2) FRRAAAAAAAAAAAAEREAERAAA RAAT AEA EAAAAAEERAAEEAAEAAEAEARERERERERED 
(1) : ROUTINE TO TYPE ASCIZ “yt MESSAGE MUST TERMINATE WITH AO 8B OvTE. 
(1) ie THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
| (1) s®NOTE1: Shu LL CONTAINS THE CHARACTER 9 BE USED AS THE FILLER CHARACTER. 
(1) zeNOTE@: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
He SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3° 
(1) 3*CAL 
} (1) 31) LOSING A TRAP INSTRUCTION 
| 38 2 TYPE »MESADR szMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ie 
(1) ie TYPE 
(1) 3* MESADR 
(1) - 
(1) 010630 105737 001157 $TYPE: TSTB STPFLG s31$ THERE A TERMINAL? 
(1) 010634 100002 BPL 1$ BR IF 
(1) 010636 000000 HALT 33HALT HERE IF NO TERMINAL 
(1) 010640 000430 BR 3$ es vE 
(1) 010642 010046 1$: MOV RO, me sSAVE RO 
(1) 010644 017600 000002 MOV a2(SP),RO tIGET ADDRESS OF ASCIZ STRING 
(1) 010650 122737 000001 001214 CMPB oprENG. SENV 3 RUNNING IN APT MODE 
(1) 010656 001011 BNE 6 22 GO CHECK. FOR ¥*: sone 
(1) 010660 132737 000100 001215 BITB #APTSPOOL ,SENVM ; 33 SPOOL MESSAGE TO A 
(1) 010666 001405 BEQ 62$ :2:NO,GO CHECK FOR CONSOLE 
(1) 010670 010037 010700 MOV RO,61$ +: SETUP MESSAGE ones FOR APT 
(1) 010674 004737 011120 JSR PC,SATY3 3 SPOOL MESSAGE TO A 
(1) 010700 000000 61$: WORD yt rs 3 ADDRESS 
(1) 010702 132737 000040 001215 62$: B1TB #APTCSUP,SENVM ;;APT CON pte SUPPRESSED 
(1) 010710 001003 BNE sz: YES,.SKIP TYPE OUT 
(1) 010712 112046 2s MOVB (RO)+,-(SP) fie ae I CHARACT ER TO oe er ONTO STACK 
(1) 010714 001005 BNE 4$ 37BR IF IT ISN'T THE TERMINAT 
(1) 010716 005726 TST (SP)+ 771 TERMINATOR POP IT OFF THE STACK 
(1) 010720 012600 60$: MOV (SP)+,RO sZRESTORE RO 
(1) 010722 062716 000002 3$: ADD #2, (SP) ZZADJUST RETURN PC 
(1) 010726 000002 RTI 7 RETURN 
(1) 010730 122716 000011 4$: CMPB #HT, (SP) :;BRANCH IF <HT> 
(1) 010734 001430 BEQ 
(1) 010736 122716 000200 CMPB #CRLF, (SP) :;BRANCH IF NOT <CRLF> 
(1) 010742 001006 BNE 
(1) 010744 005726 TST (SP)+ 77POP <CR><LF> EQUIV 
(1) 010746 104401 TYPE :; TYPE A CR AND LF 
(1) 010750 001171 SCRLF 
(1) 010752 105037 011106 CLRB SCHARCNT 7:CLEAR CHARACTER COUNT 
(1) 010756 000755 BR 2s 23GET NEXT CHARACTER 
(1) 010760 004737 011042 5$: JSR PC STYPEC :GO TYPE ws CHARACTER 
(1) 010764 123726 1156 6$: CMPB SFILLC,(SP)+* 1S IT TIME FOR eae CHARS.? 
(1) 010770 001350 BNE 77 1F NO GO GET NEXT 
(1) 010772 013746 001154 MOV SNULL ,-(SP) s:GET # OF fiece CHARS, “NEEDED 
(1) sZAND THE ant 
(1) 010776 105366 000001 7$: DECB 1(SP) 7;D0ES AN MO O BE TYPED? 
(1) 011002 002770 BLT 6$ 77BR IF Noe ‘Go POP THE NULL OFF OF STACK 
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0 ACNDRAA.PIT = 14=DEC~B2 11:43 TYPE ROUTINE SEQ 0043 
(1) 011006 004737 011042 JSR PC ,STYPEC 3360 TYPE A NULL 
(1) 011010 105337 011106 DECB © SCHARCNT ‘DO NOT COUNT AS A COUNT 
(1) 011014 000770 BR 7$ ‘SLOOP 
(1) sHORIZONTAL Ta PROCESSOR 
(1) (011016 «112716 000040 8$: MOVB (SP) i :REPLACE TAB WITH SPACE 
/ (1) 0191022 «004737 011042 9$: JSR ec, $TYPEC :iTYPE A SPACE 
1) 011026 «132737 000007 011106 B118 Osa? SCHARENT [BRANCH IF NOT AT 
| <1) 011034 001372 BNE 9S" 33 TAB STOP 
| (1) 011036 005726 TST (SP)+ :POP SPACE OFF STACK 
' <1) 011040 000724 BR 2$ SIGET NEXT CHARACTER 
/ 1) 011042 105777 170102 STYPEC: TSTB asiPs t:WAIT UNTIL PRINTER IS READY 
| 1) 011046 = 100375 BPL YPEC 
(1) 011050 116677 000002 170074 MOVB SSP). asTPa z;LOAD CHAR TO BE TYPED INTO DATA REG. 
| (1) 011056 122766 000015 000002 CMPB #CR,2(SP) ¢31S CHARACTER A CARRIAGE RETURN? 
(1) 011064 001003 BNE RANCH 
(1) 011066 105037 011106 CLRB SCHARCNT :EYES==CLEAR CHARACTER COUNT 
(1) 011072 000406 BR STYPEX T 
(1) 011074 122766 000012 000002 1$: CMPBéML*E, ge (sP) tts CHARACTER A LINE FEED? 
(1) 011102 001402 BEQ $TYP ::BRANCH IF YES 
(1) 011104 105227 INCB CPeee ‘:COUNT THE CHARACTER 
(1) 011106 0000 SCHARCNT:.WORD 0 T: CHARACTER COUNT STORAGE 
1) 011110 000207 STYPEX: RTS PC 
a) 
7136 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) REAR EARAAAATAAEAAEAAAAEAAETETAAAAAEATARAARAREAARARAAARAARAEAAEAREERAEEERE 
(1) 011112 112737 000001 011356 $ATY1: MOVB. #1 SSFFLG ::TO REPORT FATAL ERROR 
(1) 011120 119737 000001 011354 S$ATY3: MOVB #1. $MFLG ::TO TYPE A MESSAGE 
(1) 011126 000403 BR SATYC 
(1) 911130 112737 000001 011356 SAT YG: MOVB #1, $FFLG 2:70 ONLY REPORT FATAL ERROR 
(3) 011136 010046 MOV RO,-(SP) ; PUSH RO ON STACK 
(3) 011140 010146 MOV R1,-(SP) ‘PUSH R1 ON STA 
(1) 011142 105737 011354 TSTB SMFLG $3 SHOULD TYPE A MESSAGE? 
(1) 011146 001450 BEQ 5$ T: 
(1) 011150 122737 000001 001214 CMPB =: BAP TENV, SENV 3 OPERATING UNDER APT? 
(1) 011156 001031 BNE 3$ [IF NOT: BR 
(1) 011160 132737 000100 001215 BITB § #APTSPOOL,SENVM 3 SHOULD. SPOOL MESSAGES? 
(1) 011166 001425 BEQ iI 
(1) 011170 017600 000004 MOV a4(SP),RO T:GET NESSAGE ADDR 
(1) 011174 062766 000002 000004 ADD #2,4(SP) 7:BUMP RETURN ADDR. 
(1) 011202 005737 001174 1$: TST SMSGTYPE r7SEE wif. bone W/ LAST XMISSION? 
(1) 011206 001375 BNE 1$ t:1F NOT: WAIT 
(1) 011210 910037 001210 V MSG 
(1) >:PUT ADDR IN MAILBOX 
(1) 011214 105720 28: STB 2 (ROD* zzF IND END OF MESSAGE 
(1) 011216 001376 BNE 2$ 
(1) 011220 163700 001210 SUB SMSGAD,RO 33 SUB START OF MESSAGE 
(1) 011224 006200 ASR RO :3GET MESSAGE LNGTH IN WORDS 
(1) 011226 010037 001212 MOV RO, SMSGLGT T LENGTH IN MAILBOX 
(1) 011232 012737 000004 001174 MOV #4, SMSGTYPE <eTeLL APT TO TAKE MSG. 
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000413 
017637 
866766 
013746 
004737 


TE 4 


000004 011266 
000002 000004 
177776 
010630 


011356 


04 0601176 
2 000004 


MACY11 30(1046) 


T COMMUNICATIONS ROUTINE 


3$: MOV 
4$: 
5$: 
10$: 
11$: TST 


12$: 


SMFLG: 
SLFLG: 


SFFLG: “orre 
ersizes 300 


5§ 

a4 (SP) 34 4 
17746. =(SP) 

be »STYPE 


SFFLG 
12$ 


G 
(SP)+,R1 
(SP)+,RO 
PC 


: LOG FLAG 
6° 
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2:PUT MSG ADDR IN JSR LINKAGE 
- BUMP RETURN ADDRESS 
37PUSH 199776 ON STACK 


3;CALL TYPE MACRO 


4h rpg REPORT FATAL ERROR? 
3 RUNNING — APT? 
ii FINISHED LAST MESSAGE? 
F NOT: WAIT 
SIGET ERROR & 
23 TELL 


RETURN ADDR. 
L abt To TAKE ERROR 
TAL FLAG 


33POP STACK 
33;POP STACK INTO RO 


zs RETURN 
3:MESSG. FLAG 


s3FATAL FLAG 


0 
-SSTTL BINARY TO OCTAL (ASCII) AND TYPE 


PPIs iiiitiiiiiiiiiviiiivitiitiiiiiititii titty 
iSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) AND TYPE IT. 

*$T + anata HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


tec 

3* V 
s@ TYPOS 
it BYTE 
3* BYTE 
7* 

3* 

3* 


s*$TYPOS OR $ 
seCA LL 


MOV 
;¢ TYPON 


NUMBER 


NUM, -(SP) 
N 
M 


NUM, =(SP) 


NUMBER TO BE TYPED 
SICAL FOR ba 


1=TYPE LEADING ZEROS 


: LO=SUPPRESS LEADING ZEROS 
fsStvP0s On SIVPOC TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


7 ;NUMBER TO BE TYPED 
zeCALL FOR TYPEOUT 


7sNUMBER TO BE TYPED 


{$TYPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;¢ MOV 
;* TYPOC 


NUM, =(SP) 


2sCALL FOR TYPEOUT 


33N=1 % 8 FOR NUMBER OF DIGITS TO TYPE 


SEQ 0044 
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MAINDEC=11 
CNDRAA.P11 —- 14=DEC=82 11:43 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0045 
(1) 011360 017646 000000 $TYPOS: MOV a(SP),=(SP) zPICKUP THE MODE 
(1) 011364 116637 000001 011603 MOVB 1(SP).SOFILL 33LOAD ZERO FILL SWITCH 
(1) 011372 112637 011605 MOVB © (SP)+.S$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
(1) 011376 062716 000002 ADD #2, (SP) :TADJUST RETURN ADDRESS 
(1) 011402 000406 BR $TYPON 
(1) 011404 112737 000001 011603 $TYPOC: MOVB #1,$OFILL 3 $6 THE ZERO FILL SWITCH 
(1) 011412 116737 000006 011605 MOVB #6. SOMODE +1 33SET FOR $1X(6) DIGITS 
(1) 011420 112737 000005 011602 $TYPON: MOVB #5,$OCNT 338 SET ve ns ITERATION COUNT 
(1) 011426 010346 MOV R3,-(SP) 7:38 
(1) 011430 010446 MOV R4,=(SP) Hav VER 
(1) 011432 010546 MOV R5,-(SP) TSAVE R RS 
(1) 0114634 113704 011605 MOVB  $OMODE+1,R4 t:GET THE NUMBER OF DIGITS TO TYPE 
(1) 011440 005404 NEG RG 
| (1) 011442 062704 000006 ADD #624 z;SUBTRACT IT FOR MAX. ALLOWED 
| 1) 019646 110437 011604 MOVB 4, SOMODE i: SAVE IT FOR USE 
(1) 011452 113704 011603 MOVB SOfIcE R4 [GET THE PERO FILL SWITCH 
| 1) 011456 016605 000012 MOV 12(SP).RS SSPICKUP THE INPUT NUMBER 
| 1) 011462 005003 CLR R3 £3 CLEAR THE OUTPUT 
' (1) 011464 006105 1$: ROL R5 ROTATE MSB INTO ae 
(1) 011466 000404 BR 3$ ':G0 DO MSB 
| 1) 019470 006105 28: ROL = RS :TFORM THIS DIGIT 
(1) 011472 006195 ROL R5 
(1) 011474 006105 ROL R5 
(1) 011476 010503 MOV R5,R3 
(1) 011500 006103 3$: ROL R3 z:GET LSB OF THIS DIGIT 
(1) 011502 105337 011604 DECB  $OMODE +: TYPE THIS DIGIT? 
(1) 011506 100016 BPL ::BR IF NO 
(1) 011510 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
(1) 011514 001002 BNE 4$ STEST FOR 
(1) 011516 005704 TST RG i} SUPPRESS THIS 0? 
(1) 011520 001403 BEQ 5$ [:BR IF YES 
(1) 011522 005204 4$: INC RG [:DON'T SUPPRESS ANYMORE 0'S 
(1) 011524 052703 000060 BIS #°0,R3 S:MAKE THIS DIGIT ASCII 
(1) 011530 052703 000040 5$: BIS a (RB + MAKE ASCII IF NOT ALREADY 
(1) 011534 110337 011600 MOVB = R33, 8S i: SAVE FOR TYPI 
(1) 011540 104401 011600 TYPE 7:60 TYPE THIS DIGIT 
(1) 011544 105337 011602 7$: DECB =s.-s« S$OCNT +: COUNT 
(1) 011550 003347 BGT 2$ BR LF MORE TO DO 
(1) 011552 002402 BLT 6$ FD 
(1) 011554 INC RG 33 INSURE LAST DIGIT ISN'T A BLANK 
(1) 011556 744 é BR 2$ ':G0 DO THE LAST DIGIT 
(1) 011560 012605 6$: MOV (SP)+,R5 + :RESTORE RS" 
(1) 011562 012604 MOV (SP)+-RG = SRESTORE R4 
(1) 011564 012603 MOV (SP)+.R3 +:RESTORE R3 
(1) 011566 000002 000004 MOV 2(SP).4(SP) t:SET THE STACK FOR RETURNING 
(1) 011574 012616 MOV (SP)+, (SP) 
(1) 011576 RTI RET 
(1) 011600 000 8$: .BYTE 0 : STORAGE FOR ASCII DIGIT 
(1) 011601 000 "BYTE 0 +: TERMINATOR FOR TyPE ROUT INE 
<1) 011602 000 SOCNT: .BYTE 0 S:OCTAL DIGIT COUNTER 
(1) 011603 000 SOF ILG: “BYTE 0 3 ZERO FILL SWITCH 
; _(1) 011604 000000 SOMODE: .WORD 0 [NUMBER OF DIGITS TO TYPE 
7138 "SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) FRAAAAHAHHAAKEKAHAAAKATAKRAAAAAKAAAARAAAARAAAAKeKAAeAeeeeeeeeeeee 
(1) <STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
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(MAINDE 
CNORAA.P11 —- 14=DEC=82 11:43 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0046 
a) s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
a) S*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) S*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) ; #REPLACED WITH SPACES. 
s*CALL: 
(1) ie MOV NUM, =(SP) :;PUT THE BINARY NUMBER ON THE STACK 
$3 38 TYPDS 3:G0 TO THE ROUTINE 
(1) 011606 STYPDS: 
(3) 011606 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 011610 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
(3) 011612 010246 MOV R2,-(SP) 72:PUSH R2 ON STACK 
(3) 011614 010346 MOV R3,-(SP) 7 PUSH R3 ON STACK 
(3) 011616 010546 MOV R5.=(SP) ::PUSH R5 ON STACK 
(1) 011620 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 
(1) 011624 016605 000020 MOV 20(SP).R5 +:GET THE INPUT NUMBER 
(1) 011630 100004 BPL 1$ 3:BR IF I S. 
(1) 011632 005405 NEG RS S:MAKE THE BINARY NUMBER POS. 
(1) 011634 112766 000055 000001 MOVB = #*=, 1(SP) t:MAKE THE ASCII NUMBER NEG 
(1) 011642 005000 1$: CLR t:ZERO THE CONSTANTS INDEX 
(1) 011644 012703 012022 MOV #$SDBLK,R3 3: THE OUTPUT POINTER 
(1) 011650 112723 000040 MOVB = #* -, (R34 +:SET THE FIRST CHARACTER TO A BLANK 
(1) 011654 005002 2s: CLR R2 [:CLEAR THE BCD NUMBER 
(1) 011656 016001 012012 MOV SDTBL(RO),R1 ::GET THE CONSTANT 
(1) 011662 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
(1) 011664 002402 BLT 4$ [:BR IF 
(1) 011666 005202 INC R2 T: INCREASE THE BCD DIGIT BY 1 
(1) 011670 000774 BR 3$ 
(1) 011672 060105 4$ ADD R1,R5 zADD BACK THE CONSTANT 
(1) 011674 005702 TST R2 S:CHECK IF BCD DIGIT=0 
(1) 011676 001002 BNE 4g ::FALL THROUGH IF 
(1) 011700 105716 TSTB (SP?) S:STILL DOING LEADING 0°S? 
(1) 011702 100407 BMI 7$ [:BR IF YES 
(1) 011704 106316 5$: ASLB = (SP?) MSD? 
(1) 011706 103003 BCC 6$ [:BR IF NO 
(1) 011710 116663 000001 177777 MOVB 1(SP),-1(R3) §::YES==SET THE SIGN 
(1) 911716 052702 000060 6$: BIS #'0,R2 S:MAKE THE BCD DIGIT ASCII 
(1) 511722 02708 000040 7$: BIS a’ (Ro ?:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(id 011726 11022 MOVB _R2, (R3)+ [:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 011730 005720 - TST 6)+ t:JUST INCREMENTING 
(1) 011732 020027 000010 CMP RO, #10 S:CHECK THE TABLE INDEX 
(1) 011736 002746 BLT 2$ +:G0 DO THE NEXT DIGIT 
(1) 011740 003002 BGT 8 ::G0 TO 
(1) 011742 010502 MOV R5,R2 °:GET THE LSD 
(1) 011744 000764 BR +:G0 CHANGE TO ASCII 
(1) 011746 105726 8$: TSTB ss (SP) t:WAS THE LSD THE FIRST NON-ZERO? 
(1) 011750 100003 BPL [:BR IF NO 
(1) 011752 116663 177777 177776 MOVB  -1(SP),-2(R3) ::YES=-SET THE SIGN FOR TYPING 
(1) 011760 105013 9$: CLRB ss (R3) +:SET THE TERMINATOR 
(3) 011762 012605 V (SP)+,R5 ::POP STACK I 5 
(3) 011764 012603 MOV (SP)+.R3 [:POP STACK INTO R3 
(3) 011766 012602 MOV (SP)+-R2 ::POP STACK INTO R2 
(3) 011770 012601 MOV (SP)+-R1 +:POP STACK INTO R1 
(3) 011772 012600 MOV (SP)+-RO +:POP STACK INTO RO 
(1) 011774 104401 01202 TYPE SDBLK SNOW TYPE THE NUMBER 
(1) 012000 016666 000002 000004 MOV 3(SP),4(SP) S:ADJUST THE STACK 
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‘CNDRAA.P11 —-14=DEC=82 11:43 CONVERT BINARY TO DECIMAL AND type ROUTINE SEQ 0047 
/ (1) 012006 012616 MOV (SP)+, (SP) 
1) 012010 000002 Tl z RETURN TO USER 
/ (1) 012012 «023420 SDTBL: 10000. 
; @ O12016 001750 1000. 
' —€1) 012016 +000144 100. 
' 1) 012020 000012 10. 
| —¢1) 012022 000004 SDBLK: .B 4 
| 7139 OBTTL ERROR HANDLER ROUTINE 
(2) J ARAAAAAAASREAEAAAAAEAAEA AE HAAEAAAAAEAAAAAAREEEAAAHAHERAARAHEEEE 
(1) tSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
i 4) i #SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
| D GO TO SWRCK ON ERROR 
i 61) s SINE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
| (1) 3*Swi5=1 T ON 
(1) *SW13=1 INHIBI t ERROR TYPEOUTS 
(1) 7*SW10=1 BELL ON ERR 
(1) + #SwO9=1 LOOP ON ERROR 
(1) *CALL 
CD ie ERROR N y;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 012032 SERROR: 
(1) 012032 104407 CKSWR :TEST FOR CHANGE IN SOFT=SWR 
(2) 012034 104407 CKSWR :G0 LOOK “FOR SWR CHANGE 
(1) 012036 105237 001103 7$: INCB = SERFLG z3SET THE ERROR FLAG 
(1) 012042 001775 BEG 7$ ON'T LET THE FLAG GO TO ZERO 
(1) 012044 013777 001102 167070 MOV STSTNM,@DISPLAY SOT SPLAY TEST NUMBER AND ERROR FLAG 
(1) 912092 032777 002000 167060 BIT #B81T10.aSWR S:BELL ON ERROR? 
(1) 012 001402 BEQ 1$ [INO = SKIP 
(1) 012062 104401 001164 TYPE $BELL 3 sRING BELL 
(1) 012066 005237 001112 1$: INC $ERTTIL [COUNT THE NUMBER OF ERRORS 
(1) 012072 011637 001116 MOV (SP), SERRPC +:GET ADDRESS OF ERROR INSTRUCTION 
(1) 012076 162737 000002 001116 SUB #2, SERRPC 
(1) 012104 117737 167006 001114 MOVE aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 012112 032777 020000 167020 BIT #B81T13,aSwR +:SKIP TYPEOUT IF SET 
(1) 012120 001 BNE 20$ ::SKIP TYPEOUTS 
(1) 012122 004737 012222 R PC, SWRCK [:G0 TO USER ERROR ROUTINE 
(1) 012126 104401 001171 TYPE ,$CRLF 
(1) 012132 208: 
(1) 012132 122737 000001 001214 CMPB ss MAPTENV,SENV  —s ; RUNNING IN 
(1) 012140 001007 BNE 33NO, SKIP APT ERROR REPORT 
(1) 012142 113737 001114 012154 MOVB SITEMB.218 [SET ITEM NUMBER AS ERROR NUMBER 
(1) 012150 004737 011130 JSR PC, SAT tIREPORT FATAL ERROR TO APT 
(1) 012154 000 21$: BYTE 0 
(1) 012155 000 “BYTE 0 
(1) 012156 000777 228: BR 228 ; APT ERROR LOOP 
(1) 012160 005777 166754 2s: TST aSwR [HALT ON ERROR 
(1) 012164 100002 BPL 3$ ::SKIP IF CONTINUE 
(1) 012166 000000 HALT ALT ON ERROR! 
(1) 012170 104407 CKSWR i Test FOR CHANGE IN SOF T-SwR 
(1) 012172 032777 001000 166740 3%: BIT #81T09,aSwR SLOOP ON ERROR SWITCH SET? 
(1) 012200 001402 BEQ 7:8R IF NO 
(1) 012202 013716 001110 MOV SLPERR, (SP) S:FUDGE RETURN FOR LOOPING 
(1) 012206 005737 001162 4$: TST SESCAPE S:CHECK FOR AN ESCAPE ADDRESS 
(1) 012212 001402 BEQ Sy [:BR IF NONE 
(1) 012214 013716 001162 MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 


| 
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‘CNDRAA.P11 ——14=DEC=82 11:43 ERROR HANDLER ROUT! SEQ 0048 
(1) 012220 5$: 
(1) 012220 000002 RTI > RET 
7140 PUTT TTTTT TTT TTT TTT TTT TTT TTT TTT TTT TTT LTT TTT 
7141 ‘60 TYPE ERROR 
714 [GO UPDATE SOFTWARE SWR IF "CNTRL/G* 
716 RAPER KARAKAKeETeEKA eH eeeeeeaeaReaeeae eee aeaeeeaeeaeeeeaeeaeeeeeese 
7144 012222 113737 001102 001534 §SWRCK: MOVE | STSTNM,TSTNUM ;SET UP TEST # ON ER 
7145 012230 004737 012240 JSR PC, SERRTYP 760 TYPE ERROR 
7146 012234 104407 [GO LOOK FOR SWR CHANGE 
7147 012236 000207 PC RETURN TO ERROR HANDLER 
7148 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
42) FURAAAAAAAAAAAAAHAAASAAAKEAEEAEHAAAEHEHAAAEREREHAAKARAAAAEAAAEE 
(1) tSTHIS ROUTINE USES THE “ITEM CONTROL BYTE" (S1TEMB) 10 DETERMINE, WH 
(1) T*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERR TaBLe™" CSERRTB), 
(1) [*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE CRROR 
| 1) 012240 SERRTYP: a 7 
(1): 012240 «104401 001171 TYPE  ,$CRLF zs"‘CARRIAGE RETURN’ & "LINE FEED 
j (1) 012244 010046 MOV RO. -(SP) 37 SAV 
| 1) 0122466 +005000 CLR t:PICKUP THE ITEM INDEX 
(1) 012250 153700 001114 BISB OyS1TEMB.RO 
(1) 012254 001004 BNE 1$ IF TEM NUM NUMBER ER IS ZERO, JUST 
(2) 012256 013746 001116 MOV SERRPC,-(SP) 3 SAVE ceRRPE FOR TYPEOUT 
(2) szERROR ADDRESS 
(2) 012262 104402 TYPOC 7:60 TYPE=-OCTAL ASCIIC(ALL DIGITS) 
(1) 012264 900426 BR 6$ TIGET 
(1) 012266 005 1$: DEC RO 3 JADJUST THe INDEX SO THAT 1 WILL 
(1) 012270 006300 ASL RO 3: WORK FOR THE ERROR TABLE 
(1) 012272 006300 ASL RO 
(1) 012274 300 ASL RO 
(1) 012276 062700 001320 ADD #SERRTB.RO z:FORM TABLE POINTER 
(1) 012302 012037 012312 MOV (RO) +,2$ See Ick CKUP “ERROR MESSAGE’ POINTER 
(1) 012306 001404 BEQ 3$ 33SKIP TYPEOUT Ine NO POINTER 
(1) 012310 104401 TYPE 33 TYPE THE “ERROR MESSAGE 
(1) 012312 2s: .WORD 0 :°ER ROR MESSAGE POI NTER GOES HERE 
(1) 012314 104401 001171 TYPE ,$CRL 3: CARRIAGE RETURN’ & "LINE FEED 
(1) 012320 012037 012330 3$: MOV tRODS. 4$ PICKUP Se ATA ME HEADER’ POINTER 
(1) 012324 001404 BEQ 5$ 3: P TYPEQUT IF a 
(1) 012326 104401 TYPE S:TYPE THE DATA HEADER 
(1) 012330 000000 é$: .WORD 0 3:"DATA HEADER’ POINTER GOES HERE 
(1) 012332 104401 001171 TYPE  ,$CRLF CARRIAGE RETURN’ & LINE FEED’ 
(1) 012336 011000 5$: MOV (RO), RO ::PICKUP ‘DATA TABLE’ POINTER 
(1) 012340 001004 BNE rs 7:GO TYPE THE DATA 
(1) 012342 012600 6$: MOV (SP)+,RO TZRESTORE R 
(1) 012344 104401 001171 TYPE  ,$CRLF rr"CARRIAGE RETURN’ & "LINE FEED" 
(1) 012350 000207 RTS PC 7 RETURN 
(1) 012352 7$: 
(2) 012352 013046 MOV @(RO)+,-(SP) —_; ;SAVE_@(RO)+ FOR TYPEOUT 
(2) 012354 104402 TYPOC 3:G0 TYPE--OCTAL nytt DIGITS) 
(1) 012356 005710 TST (RO) 331 THERE ANOTHER NUMBER? 
(1) (12360 001770 BEQ 6$ [BR IF NO 
(1) 012362 104401 012370 TYPE 8$ tITYPE TwO(2) SPACES 
(1) 012366 000771 BR $ LOOP 
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NDRAA.P11 | - 14=DEC=82 11:43 ERROR MESSAGE TY°EOUT ROUTI SEQ 0049 
| ay 012370 929040 000 8$: eASCIZ / / ::TWwO(2) SPACES 
| 7149 .SBTTL SCOPE HANDLER ROUTINESTARS 
| wD Z*THIS ROUTINE CONTROLS THE LOOPING OF SUSTESTS. IT WILL INCREMENT 
/ a) [AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
/ 4) Z*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY< > 
aD : * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
| a 3*SW14= LOOP ON TEST 
(1) *SW11= INHIBIT ITERATIONS 
(1) :*SwO9=1 LOOP ON ER 
(1) *$WO8=1 LOOP ON TEST IN SWR<5:0> 
(1) 7 *CALL 
13 3* SCOPE 3: SCOPE=IOT 
(1) 012374 SSCOPE: 
(1) 012374 104407 CKSWR z:TEST FOR CHANGE IN SOFT=SWR 
(2) 012376 104407 CKSWR :G0 LOOK FOR SWR CHANGE 
(1) 012400 032777 040000 166532 1S: BIT #B81T14,aSWR ::LOOP ON PRESENT TEST? 
(1) 012406 001117 BNE SOVER “YES IF SW14=1 
(1) :WHHHASTART OF CODE FOR THE XOR TESTERMANEA 
(1) 012410 000416 $xXTSTR: BR 6$ 33 iTf RUNNING ON THE roth TESTER CHANGE 
(1) THIS INSTRUCTION TO A “NOP’’ (NOP=240) 
(1) 012412 013746 000004 MOV @#ERRVEC ,-(SP) 2 SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 012416 012737 012436 000004 MOV #5$,,a#ERRVEC 33SET FOR TIMEOUT 
(1) 012424 005737 177060 TST 37177060 OUT ON XOR? 
(1) 430 012637 000004 MOV (SP) +, a#ERRVEC i :RESTORE THE ERROR VECTOR 
(1) 012434 000466 BR SSVLAD To THE NEXT TEST 
(1) 012436 022626 5$: CMP (SP) +, (SP)+ tICLEAR THE STACK AFTER A TIME OUT 
(1) 012440 012637 000004 MOV (SP)+,QMERRVEC 3 ;RESTORE THE ERROR VECTOR 
(1) 012444 000426 BR 7$ *LOOP ON THE PRESENT TEST 
(1) 012446 6$:;#A#ANEND OF CODE FOR THE XOR’ * TESTERAMMNR 
(1) 012446 032777 000400 166464 BIT #81T08,aSwR z:LOOP ON SPEC. TEST? 
(1) 012454 001407 BEQ 2s ::BR IF 
(1) 012456 017746 166456 MOV WR,-(SP) iiSET DESIRED TEST NUM. FROM SWR 
(1) 012462 042716 000300 BIC os suamK (SP) :STRIP AWAY UNDE SIRED BITS 
(1) 012466 122637 001102 CMPB Ss (SP) +, STSTNNM 330N THE RIGHT TEST? 
(1) 012472 001465 BEQ VER Y 
(1) 012474 105737 001103 2$: TSTB  $ERFLG + SHAS AN ERROR OCCURRED? 
(1) 012500 001421 BEQ ::BR IF 
(1) 012502 123737 001115 01103 CMPB = SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 012510 101075 BHI ::BR IF NO 
(1) 012512 032777 001000 166420 BIT #B81T09,aSwR ::LOOP ON ERROR? 
(1) 012520 001404 BEQ 3;BR 1 
(1) 012522 013737 001110 001106 7%: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 012530 000446 BR SOVER 
(1) 012532 105037 001103 4$: CLRB = SERFLG ZERO, THE ERROR FLAG 
(1) 012536 005037 001160 CLR STIMES [CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 012542 000415 BR 1$ S:ESCAPE TO THE NEXT TEST 
(1) 612544 032777 004000 166366 3$: BIT #B1T11,aSwR 3 INMIBIT ITERATIONS? 
(1) 012552 001011 BNE YES 
(1) 012554 005737 001202 TST SPASS 331F FIRST PASS OF PROGRAM 
(1) 012560 001406 BEQ 1$ INHIBIT ITERATIONS 
(1) 012562 005237 001104 INC SICNT ; HINCREMENT ITERATION COUNT 
(1) 012566 023737 001160 001104 CMP STIMES,SICNT 23 CHECK THE NUMBER OF ITERATIONS MADE 
(1) 012574 002024 BGE SOVER R IF MORE ITERATION REQUIR 
(1) 012576 012737 000001 001104 1S: MOV #1, $ICNT ‘ERE INITIALIZE THE ITERATION COUNTER 
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‘MAINDEC=1 
CNDRAA.P11 —— 14=DEC=82 11:43 COPE HANDLER ROUTINESTARS SEQ 0050 

(1) 012604 013737 012662 001160 SMXCNT,STIMES  ;;SET NUMBER OF ITERATIONS TO DO 

(1) 012612 oe 37 00110 SSVLAD: NCB STSTNM :COUNT TEST 

(1) 012616 113737 001102 001200 MOVE = $TSTNM, STESTN tISET TEST NUMBER iS APT MAILBOX 

(1) 012624 011637 001106 MOV (SP) ,SLPADR Z:SAVE SCOPE LOOP ADDRESS 

(1) 012630 011637 001110 MOV (SP) -SLPERR +:SAVE ERROR LOOP ADDRESS 

(1) 012634 005037 001162 CLR SESCAPE {CLEAR THE ESCAPE FROM ERROR ADDRESS 

(1) 012640 112737 000001 001115 MOVB Y ALLOW ONE(1) ERROR ON NEXT TEST 

(1) 012646 013777 001102 166266 SOVER: MOV srétin, ab1 SPLAY ::DISPLAY TEST R 

(1) 012654 013716 001106 MOV SLPADR, (SP) S:FUDGE RETURN ADDRESS 

(1) 012660 000002 RTI isEIXES PS 

(1) 012662 003720 SMXCNT: 2000. ‘MAX. NUMBER OF ITERATIONS 

7130 .SBTTL TTY INPUT ROUTINE 

(2) 3 3 RAAEAAAAAAAAHOARAAAAAEAATAAAEAAAAERAAAAAAAAARAAAAARAEAERAAREEAREEEE 

(1) 

(1) 

(1) .ENABL LSB 

(2) {RRR AEEERAEEREEE CEE EEEEAEEEEREEAERERERERAEREREEEEEREREEEEREEE 

(1) tSSOFTWARE SWITCH REGISTER CHANGE ROUT INE. 

(1) :*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, WILL 

(1) S*SERVICE THE TEST Por CHANGE IN SOFTWARE SuiTcH REGISTER TRAP CALL 

(1) s*WHEN OPERATING IN TTY FLAG MODE. 

(1) 012 022737 000176 001140 $ckSWR: CMP #SWREG, SWR s:1S THE SOFT=SWR SELECTED? 

(1) 012672 001074 BNE 15$ ::BRANCH IF NO 

(1) 012674 105777 166244 ‘STB = aS TKS 7:CHAR THERE? 

(1) 012700 100071 BPL 15$ ::1F NO, DON'T WAIT AROUND 

(1) 012702 117746 166240 MOVB  a$TKB,-(SP) t:SAVE THE CHAR 

(1) 012706 042716 177600 BIC #170 ( (SP) ::STRIP=OFF THE ASCII 

(1) 012712 022726 000007 CMP (SP5+ ::1S IT A CONTROL G? 

(1) 012716 001062 BNE tog 33NO. RETURN TO USER 

(1) 012720 123727 001134 000001 CMPB SAUTOB,#1 SARE WE RUNNING IN AUTO-MODE? 

(1) 012726 001456 BEQ 15$ [:BRANCH IF YES 

(1) 012730 104401 013411 TYPE -$CNTLG zzECHO THE CONTROL=G (*G) 

(1) 012734 104401 013416 SGTSWR: TYPE  ‘S$MSWR 3TYPE CURRENT CONTENTS 

(2) 012740 013746 000176 MOV SWREG,-(SP) T:SAVE SWREG FOR TYPEOUT 

(2) 012744 104402 TYPOC [:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 

(1) 012746 104401 013427 TYPE ,$MNEW +:PROMPT FOR NEW SWR 

(1) 012752 005046 19$: CLR =(SP) S:CLEAR COUNTER 

(1) 012754 005046 CLR -(SP) 

(1) 3; THE NEW SWR 

(1) 012756 105777 166162 7$: 1S1B. 4 aSTKS z:CHAR THERE? 

(1) 012762 100375 BPL 7$ t:IF NOT TRY AGAIN 

(1) 012764 117746 166156 MOVB = a$TKB, =(SP) z:PICK UP C 

(1) 012770 042716 177600 BIC #°C177, (SP) T:MAKE IT oeeiT ASCII 

Dp 

(1) 012774 021627 000025 9$: CMP (SP) #25 rrIS ITA CONTROL ~U? 

(1) 013000 001005 BNE 10$ 33BRANCH IF NOT 

(1) 013002 104401 013404 TYPE ,$CNTLU YES, ECHO CONTROL<U (*U) 

(1) 013006 062706 000006 20$: ADD #6, SP 3 IGNORE PREVIOUS INPUT 

(1) 013012 000757 BR 19$ *:LET'S TRY IT AGAIN 


mm ee ee OC - es 
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|CNDRAA.P11 14=DEC=82 11:43 Y INPUT ROUTINE SEQ 0051 
| 641) 
| (1) 013014 021627 000015 108: CMP (SP) ,#15 z31S IT A <cR>? 
(1) 013020 001022 BNE 16$ : BRANCH IF 
(1) 013022 005766 000004 TST 4(SP) zi:YES, IS IT NOE FIRST CHAR? 
(1) 013026 001403 BEQ 11$ 33BRANCH IF YES 
(1) 013030 016677 000002 166102 MOV 2(SP) ,aSwR S:SAVE NEW S$ 
(1) 013056 062706 000006 11$: ADD #6,S i: CLEAR UP STACK 
(1) 013042 104401 001171 14$: ‘TYPE SCRLF <CR> AND <LF> 
(1) 013046 123727 001135 000001 CMPB ss SIINTAG #1 + RE-ENABLE TTY KBD INTERRUPTS? 
(1) 013054 001003 BNE 15$ :SBRANCH IF 
(1) 013056 012777 000100 166060 MOV #100,a$TKS 33 RE-ENABLE TTY KBD INTERRUPTS 
(1) 013064 02 15$:  — RTI : :RETURN 
| (1) 013066 004737 011042 16$: JSR PC ,S$TYPEC 33ECHO CHAR 
(1) 013072 021627 000060 CMP (SP) ,#60 T:CHAR < 
(1) 013076 002420 BLT 18$ ::BRANCH IF YES 
(1) 013100 021627 000067 CMP (SP) ,#67 7: CHA 
(1) 013104 003015 BGT 18$ : BRANCH IF YES 
(1) 013106 042726 000060 BIC #60, (SP)+ $iSTRIP-OFF ASCII 
(1) 013112 005766 000002 TST 2(SP) THIS THE FIRST CHAR 
(1) 013116 001403 BEQ 17$ H IF YES 
(1) 013120 316 ASL (SP) 3iNO, SHIFT PRESENT 
(1) 013122 006316 ASL (SP) 33 CHAR OVER TO MAKE 
(1) 013124 006316 ASL (SP) ROOM FOR NEW ONE. 
(1) 013126 005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
(1) 013132 056616 177776 BIS =2(SP), (SP) zISET IN NEW CHAR 
(1) 013136 000707 BR 7$ ::GET THE NEXT ONE 
(1) 013140 104401 001170 18$: ‘TYPE SQUES Si TYPE ?<CR><LF> 
(1) 013144 000720 BR 30$ t:SIMULATE CONTROL-U 
(1) .DSABL LSB 
tt 
(2) 33 SREAAAEERAAAAEAAEAEEETEAETAEEAEAAEAAAATAAEAAEREEAEEAEEEEAAEAEEEEEEEEE 
(1) sTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
2* : 
(1) : RDCHR zINPUT A SINGLE CHARACTER FROM THE TTY 
(1) it RETURN HERE +I CHARA CTER IS ON TH K 
(1) ie ::WITH PARITY BIT STRIPPED OFF 
(1) 
(1) 013146 011646 SRDCHR: MOV (SP) ,-(SP) sPUSH DOWN THE PC 
(1) 013150 016666 000004 000002 MOV 4(SP PS, »2¢SP) +S SAVE THE PS 
(1) 013156 105777 165762 1$: TSTB = STK z:WAIT FOR 
(1) 013162 100375 BPL 1$ TA CHARACTER 
(1) 013164 117766 165756 000004 MOVB  a$TKB,4(SP) t:READ THE TTY 
(1) 013172 042766 177600 000004 BIC vir TN 4(SP) z3GET RID OF JUNK IF ANY 
(1) 013200 026627 000004 000023 CMP 4(SP) #28 [1S 1T A CONTROL-S? 
(1) 013206 001013 BNE 3 BRANCH IF NO 
(1) 013210 105777 165730 2$: TSTB asTks sWAIT FOR A CHARACTER 
(1) 013214 100375 BPL *:LOOP UNTIL ITS THERE 
(1) 013216 117746 165724 MOVB Hing ~($P) *:GET CHARACTER 
(1) 013222 042716 177600 BIC ancl A SP) S:MAKE IT 7-BIT ASCII 
(1) 013226 022627 000021 CMP ::1S IT A CONTROL-0? 
(1) 013232 001366 BNE t:1F NOT DISCARD IT 
(1) 013234 000750 BR 1$ 7: YES, RESUME 
(1) 013236 026627 000004 000140 3$: CMP 4(SP) #740 t:1S [T UPPER CASE? 
(1) 013244 002407 BLT 4$ +:BRANCH IF YES 


ee ee eS 


| 
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[CNDRAA.P11 14=DEC=82 11:43 TTY INPUT ROUTINE SEQ 0052 
' (1) 013246 +=026627 000004 000175 CMP 4(SP),#175 ils IT A SPECIAL CHAR? 
| = €1)-—«013254 «00300 BGT 4 iBRAN H IF YES 
QM 013256 042766 000040 000004 BIC #40,4(SP) MAKE IT UPPER CASE 
(1) 013264 000002 4$: RTI ssAane IT USER 
(2) peeeeeeeeeeen ARS A.A. A. Sir iestls 
| a) gSTHIS | ROUTINE WILL INPUT A STRING FROM THE TTY 
' 7* : 
i) aan : DLIN z INPUT A STRING FROM THE T 
(1) 38 RETURN HERE TZADDRESS OF FIRST CHARACTER “wit BE ON THE STACK 
(1) 3* s: TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 013266 010346 SRDLIN: MOV R3,-(SP) Z:SAVE R3 
(1) 013270 012703 013374 1$: MOV #STTYIN,R3 33GET ADDRESS 
(1) 013274 022703 013404 2$: CMP MSTTYIN¢8.,R3  ::BUFFER FULL? 
(1) 013300 101405 BLOS 4$ ':BR IF YES 
(1) 013302 104410 RDCHR i360, READ ONE CHARACTER FROM THE TTY 
(1) 013304 112613 MOVB = (SP)+, (R3) ‘:GET CHARACTER 
(1) 013306 122713 000177 10$: CMPB  #177,(R3) t:1$ 1T AR 
(1) 013312 001003 BNE 3$ 3iSKIP IF NOT 
(1) 013314 104401 001170 4$: TYPE SQUES :TYPE A °?° 
(1) 013320 000763 BR teCEAR THE BUFFER AND LOOP 
(1) 013322 111337 013372 3$: MOVB — (R3),9$ t:ECHO THE CHARACTER 
(1) 013326 104401 013372 TYPE =, 
(1) 013332 122723 000015 CMPB ss #15, (R3)+ 33CHECK FOR RETURN 
(1) 013336 001356 BNE 2$ ;LOOP IF NOT RETURN 
(1) 013340 105063 177777 CLRB =1(R3) tICLEAR RETURN (THE 15) 
(1) 013344 104401 001172 TYPE ,$LF ::TYPE A LINE FEED 
(1) 013350 012605 MOV SP)+,R3 + :RESTORE URS 
(1) 013352 011646 MOV (SP) ,=(SP) 3 ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 013354 016666 000004 000002 MOV 4(SP5,2(SP) 33 FIRST ASCII CHARACTER ON IT 
(1) 013362 012766 013374 000004 MOV #$TTYIN, 4(SP) 
(1) 013370 000002 RTI : :RETURN 
(1) 013372 000 9$: .BYTE 0 t:STORAGE FOR ASCII CHAR. TO TYPE 
(1) 0133735 000 BYTE 0 32 TERMINATOR 
(1) 013374 000010 $TTYIN: .BLKB 8. s RESERVE 8 BYTES FOR TTY INPUT 
(1) 013404 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12>  =:CONTROL ‘U 
(1) 013411 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> ::CONTROL ''G’’ 
(1) 013416 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
(1) 013424 020075 000 
(1) 013427 040 047040 053505 S$MNEW: .ASCIZ / NEW = / 
(1) 013434 036440 000040 
7151 »SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) FARRAR EEAEEEEEEE EEE EE RERAEREEAEAEREEEEREREERERAEAEKEEEEEEEE 
(1) S*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) :*CHANGE IT TO BINARY 
(1) [*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
(1) S*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘2 WILL BE TYPED 
(1) :*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMP ere NUMBER MUST 
1} zs THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
(1) i* RDOCT z:READ AN OCTAL NUMBER 
(1) RETURN HERE +:LOW ORDER BITS ARE ON TOP OF THE STACK 
(1) 4BITS ARE in NsHioet z:HIGH ORDER 
(1) 013440 011646 $RDOCT: MOV (SP) ,=(SP) i sPROVIDE SPACE FOR THE 
(1) 013442 016666 000004 000002 MOV 4(SP5,2¢SP) +: INPUT NUMBER _ : 


oem, 
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CNDRAA.P11- 14=DEC=82 11:43 READ AN OCTAL NUMBER FROM THE TTY SEQ 0053 
(3) 013450 010046 MOV RO,-(SP) z:PUSH RO ON STACK 
(3) 013452 010146 MOV R1,=(SP) +:PUSH R1 ON STACK 
(3) 013454 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
(1) 013456 104411 1$: RDLIN 33 AN ASCIZ LINE 
(1) 013460 012600 MOV (SP)+,RO S:GET ADDRESS OF 1ST CHARACTER 
(1) 013462 010037 013566 MOV RO,5$ S:AND SAVE IT 
(1) 13466 005001 CLR R1 TICLEAR DATA WORD 
(1) 013470 005002 CLR R2 
(1) 013472 11204 2$ MOVB (RO) +, =(SP) z:PICKUP THIS CHARACTER 
(1) 0134746 ogi4e BEQ 3$ t:1F ZERO GET OUT 
a) 013476 122716 000060 CMPBs«#*0, (SP) T:MAKE SURE THIS CHARACTER 
(1) 013502 003026 BGT 4$ t:1S AN OCTAL DIGIT 
(1) 013504 120716 000067 CMPB «#7, (SP) 
(1) 013510 0024 BLT 
(1) 013512 006301 ASL R1 z3*2 
(1) 013514 006102 ROL R2 
(1) 013516 006301 ASL R1 3384 
(1) 013520 006102 ROL R2 
(1) 013522 006301 ASL R1 33°8 
(1) 013524 102 ROL R2 
(1) 013526 042716 177770 BIC #°C7, (SP) riSTRIP THE ASCII JUNK 
(1) 013532 062601 ADD (SP)$,R1 [:ADD IN THIS DIGIT 
(1) 013534 000756 BR 23 +: LOOP 
(1) 013536 005726 3$: TST P)+ T:CLEAN TERMINATOR FROM STACK 
(1) 013540 010166 12 MOV R1,12(SP) T:SAVE THE RESULT 
(1) 013544 010237 013576 MOV R2,$HIOCT 
(3) 013550 012602 MOV (SP)+,R ::POP STACK INTO R2 
(3) 01393 012601 MOV (SP)+.R1 t:POP STACK INTO R1 
(3) 013554 0126 MOV (SP)+-RO t:POP STACK INTO RO 
(1) 013556 000002 RTI +: RETURN 
(1) 013560 005726 4$: TST (SP)+ TICLEAN PARTIAL FROM STACK 
(1) 013562 105010 CLRB = (RO) 7:SET A TERMINATOR 
(1) 013564 104407 TYPE t:TYPE UP THRU THE BAD CHAR. 
(1) 013566 000000 5$: .WORD 0 
(1) 013570 104401 001170 TYPE SQUES rc" "eR" & LE 
(1) 013574 000730 BR i$ 7:TRY AGAIN 
(1) 013576 000000 SHIOCT: .WORD 0 S:HIGH ORDER BITS GO HERE 
7139 ~SBTTL POWER DOWN AND UP ROUTINES 
(2) 3 SRAEAAAAAAAAEAARAAARAAEAAAEKAAAKAAAARARARAAAARAARAAEAARAAAAARARAEARAEEE 
(1) “POWER DOWN ROUTINE 
(1) 013600 012737 013744 000024 $PWRDN: MOV #SILLUP ,a#PWRVEC ;;SET FOR FAST UP 
(1) 013606 012737 000300 000026 MOV #PRE, a#PWRVEC+2 ;:PRIO:6 
(3) 013614 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 13616 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(3) 01362 10266 MOV R2,-(SP) ::PUSH R2 ON STACK 
(3) 1369@ 010 4 MOV R3,-(SP) 7:PUSH R3 ON STACK 
(3) 013624 010446 MOV R4.=(SP) [:PUSH R4 ON STACK 
(3) 013626 010546 MOV R5,-(SP) +:PUSH RS ON STACK 
(3) 0136 017746 165304 MOV asur,-(SP) [:PUSH @SWR ON STACK 
(1) 013634 01063 013730 MOV SP, S$SAVR6 +:SAVE SP 
(1) 013640 012737 013652 000024 MOV #SPURUP ,a#PWRVEC :;SET UP VECTOR 
(1) 013646 000000 HALT 
(1) 013650 000776 BR 72 s:HANG UP 





_CNDRAA. Pil ie-DEC=B2 11 243 


ee 


(2) 
(1) 
(1) 013652 012737 013744 
(1) 01 B18906 91378 
(1) 01 005037 01375 
(1) 013670 005837 015750 
(1) 013674 001375 
(3) 013676 012677 165236 
(3) 013702 012605 
(3) 013704 012604 
(3) 013706 012603 
(3) 013710 012602 
3) 013712 012601 
3) 013714 012600 
(1) 013716 012737 013600 
(1) 013724 012737 000300 
(1) 013732 104401 
(1) 013736 013752 
(1) 013736 012716 
(1) 013740 002406 
(1) 013742 00000 
(1) 013744 000000 
(1) 013746 000776 — 
(1) 013750 000000 
7153 013752 003013 042522 
013760 051101 042524 
013766 051106 046517 
015774 051127 043040 
14002 000114 
7154 
7155 
a) 
(2) 
(1) 
a) 
(1) 
a) 
(1) 
(1) 014004 010046 
(1) 014006 016600 000002 
(1) 014012 005740 
(1) 014014 111000 
(1) 014016 006300 
(1) 014020 016000 014040 
(1) 014026 000200 
(1) 
(1) 
a) 
(1) 014026 011646 
(1) 014030 016666 000004 
(1) 014036 000002 
(3) 
(3) 
(3) 


000024 


000024 
000026 


000002 
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AND UP ROUTI 
4 SRARAAAAAAAERARARAARAEAAETAAEAEKAAAARAAAARERARAAREARAEAAEAARAAAAHERE 
“POWER UP ROUTINE 
$PwRUP: MOV #SILLUP, QePURVEC z:SET FOR FAST DOWN 
MOV SSAVR6, SP :i6E P 
CLR SSAVR6 [WAIT LOOP FOR THE TTY 
1$: INC $3AVR6 SIWAIT FOR THE INC 
BNE 1$ [OF WORD 
MOV (SP) + .aSuR tIPOP STACK INTO 0 asur 
MOV (SP)+-R5 t:POP STACK 
MOV (SP) +, RG t:POP STACK INTO RG 
MOV (SP)+.R3 +:POP STACK INTO R 
MOV (SP)+,R2 ::POP STACK INTO R 
MOV (SP)+,R1 33POP STACK INTO Ri 
MOV (SP)+-RO :POP STACK INTO RO 
MOV #SPWRON, @#PWRVEC :;SET UP THE POWER DOWN VECTOR 
MOV #PR6, a#PWRVEC? :iPR10: :6 
TYPE REPORT T.JE POWER FAILURE 
SPWRMG: .WORD PWRMSG : ROWER iii ME SSAGE POINTER 
MOV (PC) +, (SP) tIRESTART AT RESTR 
SPWRAD: guORD RESTRT + RESTART ADDRESS 
SILLUP: HALT THE POWER UP SEQUENCE | WAS STARTED 
BR 72 33 j BEFORE THE POWER DOWN WAS COMPLETE 


SSAVR6: 0 “PUT THE SP HERE 
PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 


-EVEN 
-SBTTL TRAP DECODER 


PUeeeeeneeeeeAeeeeeeeeeeekeeeeeeeeeeeeneeeeeeeereneneeteeenete 
se THIS ROUTING WILL PICKUP THE oe ore OF Hh a INSTRUCTION 

USE IT TO INDEX THROUGH THE T TABLE FOR THE STARTING ADDRESS 
i 0F THE DESIRED ROUTINE. THEN USING ATHE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) sSAVE_RO 
MOV 2(SP) ,RO ZIGET TRAP ADDRESS 
TST =(RO UP BY 2 
MOVE (RO) ,RO 33GET RIGHT BYTE OF TRAP 
ASL RO rye? Me FOR INDEXING 
MOV STRPAD(RO).RO INDEX TO TABLE 
RTS RO 3:G0 TO ROUTINE 


33THIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


STRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
MOV 4(SP5,2¢SP) z MOVE THE PSW DOWN 
RTI S:RESTORE THE PSW 


-SBTTL TRAP TABLE 
3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


SEQ 0054 


——-——-- - a a ne = ee 
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a3 TRAP TABLE 


‘CNDRAA.P11—- 14=DEC=82 11: SEQ 0055 
(3) :*BY THE "'TRAP’’ INSTRUCTION. 
(3) ; ROUT INE 
| (3) 014040 014026 $TRPAD: .WORD $TRAP2 
' —(3)--014042 +=010630 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
| BY 014046 011404 STYPOC ;;CALL=TYPOC TRAP +2(104408) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
| (3) 014 011360 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
/ (3) 014050 011420 $TYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
| (3) 014052 011606 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 014054 012734 SGTSWR ;:;CALL=GTSWR § TRAP*6(104406) GET SOFT=-SWR SETTING 
| (3) 014056 012664 SCKSWR ;;CALL=CKSWR §_TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
(3) 014060 013146 SRDCHR ;:;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
(3) 014062 013266 SRDLIN ::CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
2) 014064 013440 SRDOCT ::CALL=RDOCT = TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
7157 .SBTTL ASCII MESSAGES 
7158 014 042522 020107 044524 EMI: .ASCIZ /REG TIMEOUT ER/ 
014074 042515 052517 020124 
014102 051105 000 
7159 014105 122 043505 051040 €M2: .ASCIZ "REG READ/WRITE ER 
014112 040505 027504 051127 
014120 052111 020105 051105 
014126 000 
7160 014127 102 051525 051040 €M3: «ASCIZ /BUS RESET ER/ 
014134 051505 052105 042440 
014142 000122 
7161 014144 047106 052103 041040 EM: sASCIZ /FNCT BITS FAILED TO SET STAT BITS/ 
014152 052111 020123 040506 
014160 046111 042105 052040 
014166 020117 042523 020124 
014174 052123 052101 041040 
014202 052111 000123 
7162 014206 042522 042101 020131 EMS: .ASCIZ /READY INTR FAILURE/ 
014214 047111 051124 043040 
014222 044501 052514 042522 
014230 000 
7163 014231 122 040505 054504 EM6: .ASCIZ. /READY CLR OR SET ER/ 
014236 041440 051114 047440 
014244 020122 042523 020124 
014252 051105 000 
7164 014255 123 040524 052524 EM?: sASCIZ /STATUS ER ON XFER/ 
014262 020123 051105 047440 
014270 020116 043130 051105 
7165 O43? 127 051117 020104 EM10:  .ASCIZ /WORD COUNT ER ON XFER/ 
014 047503 047125 020124 
014312 051105 047440 020116 
014320 043130 051105 09 
7166 014525 102 043125 042506 EM11:  .ASCIZ /BUFFER ADRS ER ON XFER/ 
014332 020122 042101 05152 
014340 042440 020122 04711 
014346 054040 042506 000122 
7167 014354 040504 040524 042440 EM12: .ASCIZ /DATA ER FROM MEM/ 


ee: 
| 
| 
| 
| 
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DMA INTERFACE ts rec HES MACY11 301046) 14=DEC*82 11:44 PAGE 62-16 


B DMA 
NDRAA.F11 14=DEC-82 11:43 ASCII MESSAGES SEQ 0056 
014362 020122 051106 046517 
014370 046440 046505 090 
7168 014375 | 104 052101 020101 EM13: .ASCIZ /DATA ER TO MEM/ 
014402 051105 052040 020117 
014410 042515 000115 
7169 014614 044523 043516 042514 EM14:  .ASCIZ /SINGLE CYCLE OFF DID NOT LOCK OUT CPU/ 
| 014422 041440 041531 042514 
: 014430 047440 043106 042040 
014436 042111 047040 052117 
| 014444 046060 041517 020113 
| 014452 052517 020124 050103 
| 014460 000125 
| 2170 014462 044523 043516 042514 EM15: .ASCIZ /SINGLE CYCLE ON LOCKED OUT CPU/ 
| 014470 041440 041531 042514 
| 014476 047440 020116 047514 
014504 045503 042105 047440 
| Q14512 052125 041440 052520 
| 7171 014521 015 050012 042514 WARN: eASCII <15><12>/PLEASE DISABLE ‘'REV11°" MEMORY REFRESH OPTION/ 
014526 051501 020105 044504 
| 014534 040523 046102 020105 
014542 051042 053105 030461 
014550 020042 042515 047515 
014556 054522 051040 043105 
014564 042522 044123 047440 
014572 052120 047511 116 
7172 014577 0 040412 042116 eASCIZ <15><12>/AND ENABLE PROCESSOR MEMORY REFRESH / 
014604 042440 040516 046102 
014612 020105 051120 04151 
014620 051505 047523 020122 
014626 042515 047515 054522 
014634 051040 043105 042522 
014642 044123 020040 000040 
7173 014650 042516 020130 047514 EM16: .ASCIZ /NEX LOGIC ER/ 
014696 044907 020103 051105 
7174 014665 103 041531 042514 EM17: eASCIZ /CYCLE FAILED TO CLK DBR (IN)/ 
014672 043040 044501 042514 
014700 020104 047524 041440 
014706 045514 042040 051102 
014714 024040 047111 000051 
7175 014722 040504 040524 042440 €EM20: -ASCIZ ‘DATA ER FROM I/O PAGE (XCSR)* 
014730 020122 051106 046517 
014736 044440 047457 050040 
014744 043501 020105 054050 
014752 051503 024522 000 
717%6 014757 105 051122 041520 DH1:  .ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
014764 020040 052040 052123 
014772 052516 020115 041040 
015000 051525 042101 020122 
015006 042440 050130 052103 
015014 020040 051040 053103 
015022 000104 
7177 015024 051105 050122 020103 DH2: eASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD/ 
015032 020040 051524 047124 
| 015040 046525 020040 052502 
L 


FS 
MACY11 30(1046) 14=DEC-82 11:44 PAGE 62-17 


7192 015316 000000 DBUF: 0 31ST ADRS OF DATA BUFFER 


‘MAINDEC=11-CNDRA=A DRV11B DMA INTERFACE DIAGNOSTIC 
CNDRAA.P11 14=DEC-82 11:43 ASCII MESSAGES SEQ 0057 
015046 040523 051104 020040 
015054 042101 051522 020040 
015062 020040 054105 041520 
015070 020124 020040 041522 
015076 042126 000 
7178 015101 105 051122 041520 DH3: eASCIZ /ERRPC TSTNUM BUSADR/ 
015106 020040 052040 052123 
015114 052516 020115 041040 
7179 015122 051525 042101 000122 
| 7180 EVEN 
7181 015130 001116 001534 001122 DT1: SERRPC , TSTNUM, SBDADR , SGDDAT , SBDDAT 0 
015136 001124 001126 000000 
7182 015144 001116 001534 6011 DT2: SERRPC , TSTNUM, SBDADR , SGDADR , SGDDAT , SBDDAT 0 
015152 001120 001124 001126 
015160 000000 
7183 O1318¢ 001116 001534 001122 oDT3: SERRPC, TSTNUM, SBDADR ,O 
7184 015172 005015 051511 052040 KDF11B: .ASCIZ <15><12>/I1S THE PROCESSOR KDF11-B? / 
015200 042510 050040 047522 
015206 042503 051523 051117 
015214 045440 043104 030461 
015222 041055 020077 000040 
7185 015230 005015 051124 047101 IOTEST: .ASCIZ <15><12>. TRANSFERS FOR 1/0 PAGE? . 
015236 043123 051105 020123 
015244 047506 020122 027511 
015252 020117 040520 042507 
012560 020077 80 0 
| 7186 015264 005015 101 051104 IOADR: .ASCIZ <15><12>\ADDRESS OF I/0 PAGE? \ 
015272 051505 020123 043117 
015309 044440 047457 050040 
| 015306 043501 037505 020040 
015314 000 
7187 015316 EVEN 
7188 FARRAH AeKeeeeAAeAAAAHAAKAAAKAAA eee eKeeAeeeeeeeeneeeeeeeetenee 
7189 :*DBUF* IS THE WORKING AREA IN EACH 4K MEM FOR ALL 
7190 sNPR OPERATIONS = IT IS 200 WORDS LONG 
7191 SF LUAAAAA AAA AAAAAAATAREAAAATAAAAAAAAAARARAREHEEKAKEEERERERRAAeS 
| 


G 5 
MAINDEC=11=CNDRA=A get hy DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 14=DEC-82 11:44 PAGE 63 


CNDRAA.F11 =: 14=DEC=82 11:43 ASCII MESSAGES SEQ 0058 
7194 ;THE FOLLOWING MACRO CALL TO CNMAC2.SML WAS ADDED TO MAKE 
7195 iiTHIs DIAGNOSTIC SPECIFIC TO 11/21 PROCESSOR AND WAS RENAMED 
719% ROM CVDRABO TO CNDRAAO. ALSO ASSEMBLED WITH CNMAC2.SML. 
7197 015320 BaINT=. ;SAVE POINTER 

mM 000100 .=100 

C1) 000100 015320 SCLKVEC {LKVEC, HANDLER 

1) 000102 000300 300 INTERRUPT HANDLER PRI 

/ WD 000140 ~=140 ;BRKVE 

(1) 000140 170000 170000 3001 START ADDRESS 

(1) 000142 000300 300 PRIORITY 

/ mM 015320 =POINT RESTORE POINTER 

C1) 015320 106401 015326 SCLKVEC: TYPE ,CLKMES 

(1) 015324 00 HALT 

(1) 015326 005015 045514 042526 CLKMES: .ASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 015336 020103 047111 042524 
(1) 015342 051122 050125 020124 
(1) 015350 020055 04 041523 
(1) 015356 047117 042516 052103 
(1) 015364 046040 041524 000040 
7198 000001 -END 


5 
‘MAINDEC=11-CNDRA-A_DRV11B Bs INTERFACE DIAGNOSTIC MACY11 3010463 


CNDRAA.P11 14=DEC-82 1 CROSS REFERENCE TABLE == USER 


ABASE = 174600 606 6073 6176 6177 6178 6179 
‘ACDW1 = 000000 607 
ACDW2 = 000000 607 
ACPUOP= 000000 607 
‘ADDWO = 000000 607 
‘ADDW1_= 000000 607 
ADDW10= 000000 6073 
lADDW11= 000000 6073 
‘ADDW12= 000000 607 
ADDW13= 000000 607 
ADDW14= 000000 6073 
ADDW15= 000000 6073 
ADDW2 = 000000 6073 
ADDW3 = 000000 6073 


6073 
EVM = 000001 60624 6073 
6073 


3 
ALTERN 007452 688 69234 


64 
TENV= 000001 7135 at ed 7139 


WR 
mates 000210 60614 6073 6183 6184 


0 
1T00 = 000001 60594 6293 6298 6347 7027 
B1T01 = 000002 60594 


ua 11:44 PAGE 64 


SEQ 0059 


MAINDE <=-11-CNDRA=A_ DRV11B a INTERFACE DIAGNOSTIC 
oe) CROSS REFERENCE TABLE == USER SYMBOLS 


CNDRAA.P11 


@ 
— 
a 


DHVHVIHIDIDaDonamammmma . 
gsereanansias3-sessarae 
ee | 
Seber ces cceepeencee: 


B1T9 

BPT 

BRKVEC= 000140 
CKDA 10460 


CKSTAT 910138 
CKSWR = 10440 
CLKMES 015326 
CORSZ 1549 
CORSZR 2304 
CR = 15 
CRLF = 000200 
015316 
DBUFP 001542 
DDISP = 177570 
OH1 014757 
DH2 015024 
DH3 015101 
SPLA 00114 
DISPRE 000174 
P 001536 
DRVBAR 001522 


DRVCSR 001524 
| 
| 
| 


14=-DEC-82 11: 


ae Se ee 


6429 


7149 


7139 


6726 


6825 


6545 
704? 


6899 


6941 


MW 09E8N OM 


Oo 


MACY11 30146) ob li 11:44 PAGE 64-1 


70094 


SEQ 0060 


7066 


MAINDEC=11-CNDRAWA pays"? 


CNDRAA.F11 


DRVCTO 001330 
DRVCT2 0015 
DRVDBR 001526 


DRVWCR 001520 
D = 177570 
pT1 015130 
Dre 015144 
DT 015162 
EMTVEC= 000030 
—M1 014066 
'EM10 014877 
EM11 = (014325 
emt 014354 
EMI 014375 
(EMI = 014414 
‘EM15 014462 
lEm16 ©—-014650 
EM17 014665 
EM2 014105 
EM20 014722 
EM3 014127 
EMG 014146 
EMS 014206 
EM6 014251 
—EM7 14255 
ERRVEC= 000004 
GNS = eeeeee 
GTSWR = 104406 
IOADR 015264 
OPAGE 001544 
1OTEST 015230 
yVete 000020 
001546 

KDFI1B 015172 
LDBUF 010336 
LDBUF1 010410 
LF = 000012 
KVEC = 000100 
MIPS = 106427 
NXDEV 767, 


240 
POINT = 015320 
000000 


PRO = 
PR1 = 000040 
PR2 = 000100 
PR3 = 000140 
PR4 = 000200 
PRS = 000240 


ro 


6478 6480 
6910 S15 


6344 6500* 
6849*  6885* 


6155 6161 


DMA INTERFACE DIAGNOSTIC MACY11 s0c1bu6) 14=DEC-82 11:44 PAGE 64-2 
14=DEC-82 11:43 CROSS REFERENCE TABLE <= USER SYMBOLS 
61834 6204 eee: 6428 6972* bs 6998« 
61844 6209 6973* 6990" 699 
61798 6202 0208 6311* 6312 e330. rete 6351 6353 
6489 6326 52 138° 6571 661 6621*  6889« 
6955 6971* O78 Ag 
61768 6198 624 6257 627) 6274 6275 6338* 6342 
6619* 6652 6681* 6715" 6716* 6754 6774 6778 6811« 
7017 7019 
60594 6073 6197 
6077 608 6089 6095 6101 6107 6113 6119 6125 
6131 613 170 71824 
6143 6149 1834 
60594 197* 
6075 1584 
6117 71654 
6123 71664 
6129 71674 
6135 71684 
6141 71694 
6147 71708 
6153 71734 
6159 71744 
6081 71594 
6168 71754 
6087 71604 
6093 71614 
099 71624 
6105 716 
6111 71644 
60594 6197* 6230* 6235* 6256*  6267* 7149* 
6065 6211 7155 
6211 71554 
60594 713 
71864 
<9 6923 6928 6929 6951 6956 
60594 6197* 
61934 6218 6219 6220 
6216 71844 
6585 70424 
6710 6809 6847 70664 
60594 7135 
60594 
60634 
6918 6924 69644 
6243 69654 
60594 
0594 
0594 
1974 
0594 
60594 
60594 
594 
60594 
60594 


6482¢ 
6931¢ 
65440 
6927¢ 


718148 


SEQ 0061 


6483 
6952 


6586* 
6968* 


kK 5 
MAINDEC=11=CNDRA=A_DRV11B ny INTERFACE DIAGNOSTIC MACY11 30(1046) 14=DEC=82 11:44 PAGE 64-3 


‘CNDRAA.P11 — 14=DEC-82 11: CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0062 
'PR6 ~—-=_ 000300 6059" 6197 7152 
‘PR? == -000340 60594 
PS = 177776 6059" 
= 177776 60598 
PWRMSG 013752 7152071538 
EC= 000024 6059 6197* 7152« 
RDCHR = 104410 621771507155 
RDLIN = 104411 71558 
RDOCT = 104412 71554 
RESTRT 002406 6240 6242 6244 6977 7152 
RESVEC= 000010 6059" 
RSTVEC 010132 6379 6443 6536 6580 6614 6644 6673 6705 6748 6805 6839 6879 6917 
6959 69978 
0136 71518 
SETUP2 002022 200# 6203 
SETUPS 002052 6207# 6210 
SETVEC 010112 6358 6496 654065836617 66486677 67086752 68076841 68836925 
STACK = 001100 6059" 6245 
START 001550 6065 61978 
START? 002012 1984 6978 
STKLMT= 177774 6059" 
001140 6197" 6211 6222* 6881 7139 7149 7150% 7152« 
SWRCK 012222 71397144 
SWREG 000176 6065# 6197 6211 7150 
SwO = 1 60594 
SwOO = 1 60598 
SwO1 = 000002 6059" 
SwO2 = 000004 6059" 
SwO3 = 000010 60594 
Sw04 = 000020 60594 
SwOS = 000040 6059" 
Sw06 = 000100 60598 
SwO7 = 000200 60594 
SwOB = 000400 60594 
SwO9 = 001000 60598 
Swi = 000002 60594 
Sw10 = 002000 605 
Swi1 = 004000 60594 
su12 = 070000 60598 
Swi3 = 020000 6059" 
Sw14 = 040000 6059" 
Sw15 = 100000 60598 
SW2 = 000004 6059" 
SW3 = 000010 605 
Swa = 000020 60598 
SWS = 000040 60598 
Sw6 = 000100 60598 
SW? = 000200 059" 
SWB = 000400 6059" 
Sw9 = 001000 605 
TBITVE= 000014 60598 
TKVEC = 000060 60598 
TMAIN 000000 60644 
TPVEC = 000064 60598 


TRAPVE= 000034 60594 6197* 





-————— ee Ce Ce Ce _- ~ a — 


(MAINDEC=11-CNDRA-A DRV118 ona INTERFACE DIAGNOSTIC MACY11 soctiedl eas 11:44 PAGE 64-4 


-CNDRAA.P11 14=DEC=82 11:43 CROSS REFERENCE TABLE == USER SYMBOL 


|TRTVEC= 000014 60594 
st 001534 61884 7144* 7181 7182 7183 
$T1 oo etes 62514 
TSTIO0 00344 63814 
TST11 §=©—.003516 6388 63914 
TST1 003600 64054 
TST1 003676 642 
TST14 004036 64454 
TST15 sk 6458 64614 
TST16 ooege 64778 
TST17 }§=—6004356 6491 64944 
TST2. 002552 62694 
TST20 004606 65384 
TST21 005030 65824 
TST22 005236 66164 
TST23 005412 
TST24 005566 66754 
TSst25 005770 67074 
TST26 006226 675 
TST27? 006606 68 
T$ 002650 62864 
TST30 ©6007 68404 
TST31 §=©007224 6 
TST4 002766 630 63064 
TSTS 003064 632 
TST6 = 003144 6333 63364 
a 
= 
TYPE = 104401 6211 6216 6219 6225 6978 7135 7137 
71554 7197 
TYPOC = 104402 7148 7150 71554 
TYPON = 104404 71554 
TYPOS = 104403 71554 
WARN = 014521 6225 71714 
PT 1000 60724 
SASTAT= seeeee 7136 
SATYC 011136 71364 
SATYT = 011112 7136# 
SATYS ott ies 7135 71364 
SATY4 11130 71364 713 
SAUTOB 001134 60734 6211* 6214 7150 
$BASE 001250 60734 
SBDADR 001122 6073# 6259* 6271* 6288  6308*  6325*  6344* 
6424% 6447" 6463 6478* 6506* 6527* 6550+ 
6719* 6759* 6770* 6778s 785* 6795* 6803+ 
7014* = 7019* 7030*  7092* 123* 7381 7182 
SBDDAT 001126 6073# 6255* 6275* 6276 6292+ 6293* 62 
6332 6342* 6346* 6347* 63551* 6366*  6367* 
6397 =66398 «= -6399* § = 640 6411* 6412 3 
6456* 6457  6466* 646 6471* 6483+ 64 
6568+ 6593*  6609* 661 6627* 6651* 
6700* 70 6721* 6761*  6766* 6768 
6799 6815* 6816*  6820*  6855* 6854+ 
6953 7009* 7012 O17* 7026* 7027* 7028 


$BELL 0011 
$CDW1 001254 60734 





7138 


7093+ 


7139 


7148 


7150 


7151 


SEQ 0063 


7152 


rc + Cr + - - eee ree re ee ee ee 


5 
\MAINDEC=11 =CNDRA“A th DMA INTERFACE DIAGNOSTIC MACY11 30(10463 ea 11:44 PAGE 64-5 


|CNDRAA.PIT == 14=DEC=82 11:43 CROSS REFERENCE TABLE == USER SYMBOL SEQ 0064 
| $cow 001256 $07 
Hor? 011106 135 
SCKSWR 012664 71504 
SCLKVE 015320 71978 
SCHTAG 001100 60734 6197 
SCNTLG 013411 71504 
SCNTLU 013404 71508 
$C 001222 60734 
SCRLF Oo1i71 $0754 7135 7139«—- 7148 )~=—S—7150Ss 7151 
Dut Ob1S60 sorse Onto 
$DDW10 001304 60734 
$DDW11 001306 60734 
$DDW12 001310 60734 
$DDW13 001312 60734 
$DDW14 001314 60734 
$DDW15 001316 7 
DW2 001264 60734 
SDDW3 001266 60734 
DW4 001270 60734 
$ODWS 001272 60734 
$DDW6 001274 60734 
$DDW7 001276 60734 
$0DW8 001300 60734 
D 001302 60734 
SDEVCT 001204 60734 6246* 
E 001252 60754 6238 
$OTBL EE: 71384 
SENDAD 010056 6070 69784 
SENDCT 010024 69784 
SENDMG 010075 69784 
SENULL 010072 69784 
SENV. 001214 0734 6211 7135 7136 7139 
soe” surrre = Saar Sate 8 
SEOPCT 010016 69784 
SERFLG 001103 60734 7139* 7149 
ho 
SERRTS 001820 me ae ee ee 
SERRTY 012240 7145 71488 
SERTTL 001112 60734 7139 
SESCAP 001162 60734 6197" 7139 7149 
TEND 001320 607 0734 
SFATAL 001176 607 136% 
SFFLG 011356 7136#* 
SFILLC 001156 734 ©7135 
$FILLS 001155 60734 7135 
$GDADR 001120 60734 6522 6566* 6607* 6914*  6956* 7094% 7121* 7182 
$GDDAT 001124 60734 6254" 6273" 6274 6¢76 6279* 6282" 6285s 6290s 6291 6294 6297 6298 
6311 631 6316* 6319% 6320* 6327* 6332 6337*  6363% 6364* 





a 0 ee ee 





----——-- 


NS 
|MAINDEC=11=CNDRA=A_DRV11B DMA INTERFACE oie MACY11 30(1046) 14=DEC-82 11:44 PAGE 64-6 


TIC 
CNDRAA.P11 14=DEC=82 11:43 OSS REFERENCE TABLE == USER SYMBOLS SEQ 0065 
6368 6375* 6383* 6387 6395* 6400 6408* 6413 6416* 6425* 6440 6448* 6451 
6455* 6457 6464* 6467 6473* 6479* 6480 6484 6488* 6490 6507*  6523* 6525 
6551* 6567* 6569 6592*  6608* 6610 6626* 6662* 6689* 6701* 670 6720* 6760+ 
6767* 6768 6775* 6776 oceg* 783 6792* 793 6800* 6801 6819* 6857* 6893+ 
gore 4a 6935* 6951» 695 O11* 701 020* 7023* 7024* 7025* 7028 7122 
SGET42 010046 69784 
SGTSWR 012734 7150# 7155 
$SHD = 000003 6054 
SHIBTS 001000 6072 
SHIOCT 013576 71514 
SICNT 001104 60734 7149* 
ILLUP 013744 71524 
SINTAG 001135 0734 150 
ITEMB 001114 60734 7139* 7148 
F 001172 0734 7139 7150 7151 
SLFLG 011355 71364* 
SLPADR 001106 0734 6197* 6251* 7149 
SLPERR 001110 60734 6197* 6253* 6270* 6287* 6307+ 6360*  6406*  6495*  6539* 7139 7149 
SMADR1 001226 60734 
SMADR2 0012352 60734 
SMADRS 001236 60734 
SMADR4 001242 60734 
SMAIL. 001174 6072 60734 6197 6211 6251 7135 7139 7149 
SMAMS1 001224 60734 
SMAMS2 001230 60734 
SMAMSS 001234 60734 
SMAMS4 001240 60734 
SMBADR 001002 60724 
SMFLG 011354 71364* 
SMNE 013427 71504 
S 001210 60734 7136* 
SGLG 001212 60734 7136* 
SMSGTY 001174 60734 7136* 
SMSWR 013416 71504 
SMTYP1 001225 0734 
SMTYP2 001231 60734 
SMTYPS 001235 60734 
SMTYP4 001241 0734 
SMXCNT 012662 71498 
$NULL_ 001154 60734 7135 
SNWTST= 000001 62514 62694 62864 63064 63234 63364 63564 63814 63914 64054 6420 64454 64618 
64774 64944 65384 65824 66164 6646 66754 67074 6750 68064 6840# 68804 
SOCNT 011602 71374 
1604 71374 
SOVER 012646 71494 
SPASS 001202 60734 6197* 6978* 7149 
SPASTM 001006 60724 
SPWRAD 013740 71524 
SPWRON 013600 6197 71524 
SPWRMG 013734 71524 
SPWRUP 013652 71524 
S$QUES 001170 60754 7135 7139 7150 7151 
SRDCHR 013146 7150# 7155 
SRODEC= *eeeee YJ 7155 
SRDLIN 013266 7150# 7155 





|MAINDEC-11=CNDRA=A_D 
CNDRAA.P11 


01344 
RH 





$3e8S 88s 


< 
& 
aase 


SSSUSSEMS : NS 


SSSSSSlsssss sess 


IA) ed et et os ot os od od ed 


horn 


— aS 
Soaroo 


f=] 
= 





—-@ 
2 & 
& 


14=DEC 


—s 


hh mm 
Sate S'ss 


60544 


INTERFACE . 


7155 


6978* 


7155 


6246 


60704 
71504 


IAGNOSTIC 


7139 


6247 


MACY11 3010465 
ROSS REFERENCE TABLE <= USER SYMBOL 


7144 


6974% 


7149 


6251 
td 
139 149 152 


6420" 6582* 6616+ 

6302 63064 63234 

6458 64614 64774 

68404 8804 

7135 

7149* 

60738 6197 62114 
1874 71978 


6306 
6582 


6646* 


6333 
6491 


6978 


a ae 11:44 PAGE 64-7 


6323 
6616 


6675* 


63364 
64944 


7135 


6336 
6646 


71364 


SEQ 0066 
6356 6381 
6675 6707 
6750*  6806* 


63564 # 
65824 66164 


71384 87139 


——-—- +--+ ee ——— 


| 


‘MAINDEC=11=CNDRA@A DRV11B DMA INTERFACE DIAGNO 


CNDRAA.P11 14=DEC=82 11:45 

ENDCON 1576" 60398 

} 

/ERROR 60594 6968 627 6696 
64 644 645 645 
6 6564 6572 659 
669. 6699 6704 ore 
682 6831 6833 68 
6944 6947 6949 6957 

ESCA 199 60594 

GETPRI 13124 60594 

GETS 17718 6059 62114 

MULT 44848 60594 

NEWTST loege 60594 6251 6269 
64 6494 6538 658 

OK 61634 6276 6294 631 
6525 6569 10 702 

POP sizes 60594 136 138 

PUSH 1454 6059# 7136 7138 

REPORT 54634 60594 

SCOPE 60594 6269 62 6306 
6538 6582 6616 6646 

SETPRI 12798 60594 

SETTRA 7155# 

SETUP 13374 60598 6197 

SKIP 17334 60594 6302 6333 

SLASH 15174 60594 

SPACE 60594 

STARS 14854 60594 6078 607. 
6391 6405 642 644 
6840 6880 6920 6922 
7060 7065 7084 7088 
7151 7152 155 7188 

WRSU 14534 6059% 61974 

TRMTRP 71554 

TYPBIN 20884 60594 

TYPDEC 20584 60594 6978 

TYPNAM 1826 60594 6211 

TY 20254 60594 

TYPOCS 1978 6050# 60594 

TYPOCT 19414 60594 7148 7150 

TYPTXT 18944 60594 

SSCMRE 60734 

SSCMTM 60734 

SSESCA 17114 60594 

SSNEWT 16624 6059% 6251 6269 
6477 94 6538 6582 

SSSET 71554 

SSSETM 61974 

S$SKIP 17464 60594 6302 6333 

-EQUAT 189% 6050# 6059 

»HEADE 614 0494 6054 

INIT 56584 60594 7197 

SETUP 12134 0494 6195 

- SWRHI 1044 6050# 6058 

~SWRLO 60584 

SACT1 50644 60524 6070 


oa 

Lad 
~rN potas rw 4 
VW ——crnoe 


oO NNOO 
ow NW 


6286 
6616 


6352 


STIC 
REFERENCE TABLE <= MACR 


6306 
6646 


6388 


MACY11 30154 
6345 6350 
eu 
758 6746 
6869 6871 
6323 = 63 
$6 > 670 
6387 6400 
6783 6793 
6356 6381 
6750 6806 
6458 6491 

51 
st i 
6978 $98? 
7135 136 
6323 ©6336 
6675 6707 
6458 6491 


6 


6381 
6806 


6391 
6840 


6) 14-DEC-82 11:44 PAGE 65 
O NAMES 


6405 
6880 


6420 


6477 


6445 


6461 


MAINDEC=11=CNDRA=A DRV11B Ors INTERFACE the eye EF MACY11 50.1046) + Pi 11:44 PAGE 65-1 


'CNDRAA.P11 14=DEC-82 1 


-SAPTB 3 =51094 
-SAPTH 53708 
~SAPTY 55474 
-SASTA = 56178 
-SCATC 9320 
-SCMTA = 10478 
-$0B2D 46864 
-$0B20 4812" 
-SDIV 45874 
- SEOP 22148 
~SERRO 27008 
-SERRT 28968 
. T 45234 

42298 
~SRAND 43074 


~$RDOC 37978 
-SREAD 3395# 
~$R2AZ 49584 
~SSAVE 39694 
-$SB2D 47714 
-$SB20 4874# 
~SSCOP 2454# 
-SSIZE 43614 
-SSUPR 49134 
-STRAP 40734 
-STYPB 4 32874 
-STYPD 320 

-STYPE 2985# 
-STYPO 31124 
-$40CA 9724 


- ABS. 015372 


ERRORS DETECTED: 


60938 
60524 
60524 


000 


0 


OSS REFERENCE TABLE == MACR 


CNDRAA, CNDRAA/CRF /NL : TOC=CNMAC2.SML,CNDRAA.P11 
RUN-TIME: 13 ECONDS 


RUN-TIME RATIO: 53/28=1 


CORE USED: 33k 


i 


8 
(66 PAGES) 


SEQ 0068 


